;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base.lisp,v 1.13 2003/07/16 20:40:43 kevin Exp $
+;;;; $Id: base.lisp,v 1.14 2003/08/18 05:48:55 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
(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)))