projects
/
cl-modlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r7061: initial property settings
[cl-modlisp.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index ebb2ece37c8932ef451c4a0d204444babd126e6c..e08c251b83f4304ccc01b950b6957279b4a176ec 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.13 2003/07/16 20:40:43 kevin Exp
$
+;;;; $Id$
;;;; *************************************************************************
(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)))