projects
/
cl-modlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5514: *** empty log message ***
[cl-modlisp.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index ebb2ece37c8932ef451c4a0d204444babd126e6c..5fc67e4974f55d4d56b443b3d17f321981ba4775 100644
(file)
--- a/
base.lisp
+++ b/
base.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base.lisp,v 1.1
3 2003/07/16 20:40:43
kevin Exp $
+;;;; $Id: base.lisp,v 1.1
4 2003/08/18 05:48:55
kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
;;;; *************************************************************************
(in-package #:modlisp)
@@
-91,9
+91,7
@@
(defun read-modlisp-header ()
(loop for key = (read-modlisp-line)
(defun read-modlisp-header ()
(loop for key = (read-modlisp-line)
- while (and key
- (string-not-equal key "end")
- (> (length key) 1))
+ while (and key (string-not-equal key "end"))
for value = (read-modlisp-line)
collect (cons (ensure-keyword key) value)))
for value = (read-modlisp-line)
collect (cons (ensure-keyword key) value)))