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