Skip to content
Snippets Groups Projects
Commit 1b55f5ea authored by ram's avatar ram
Browse files

Fixed broken declaration.

parent d49a472e
Branches
Tags
No related merge requests found
......@@ -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) #\@))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment