From 1b55f5eadef228198ff4573171297bca646df1fb Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 11 Dec 1990 13:50:56 +0000 Subject: [PATCH] Fixed broken declaration. --- hemlock/group.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hemlock/group.lisp b/hemlock/group.lisp index e962d5259..8c5eedbb1 100644 --- a/hemlock/group.lisp +++ b/hemlock/group.lisp @@ -78,7 +78,7 @@ (do* ((name (read-line file nil nil) (read-line file nil nil)) (length (if name (length name)) (if name (length name)))) ((null name) tail) - (declare (simple-string name)) + (declare (type (or simple-string null) name)) (cond ((zerop length)) ((char= (char name 0) #\@) (when (and (> length 1) (char= (char name 1) #\@)) -- GitLab