In (DECLARE (IGNORE (FUNCTION ...))) ECL complained about the arguments....

In (DECLARE (IGNORE (FUNCTION ...))) ECL complained about the arguments. Remove a spurious check. (A. Gavrilov)
parent 378917c1
......@@ -76,11 +76,11 @@ and a possible documentation string (only accepted when DOC-P is true)."
do (case decl-name
(SPECIAL)
(IGNORE
(cmpassert (proper-list-p decl-args #'symbolp)
(cmpassert (proper-list-p decl-args)
"Syntax error in declaration ~s" decl)
(setf ignored (parse-ignore-declaration decl-args -1 ignored)))
(IGNORABLE
(cmpassert (proper-list-p decl-args #'symbolp)
(cmpassert (proper-list-p decl-args)
"Syntax error in declaration ~s" decl)
(setf ignored (parse-ignore-declaration decl-args 0 ignored)))
(TYPE
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment