Commit 71c3444e authored by pfdietz's avatar pfdietz

Pass a list of declaration specifiers for the :declare argument

parent 460acc57
......@@ -167,7 +167,7 @@
(values
(funcall fn 'a 'b)
(eqlt fn (ensure-generic-function f :lambda-list '(x y)
:declare '(optimize (safety 0) (debug 2) speed (space 1))))
:declare '((optimize (safety 0) (debug 2) speed (space 1)))))
(funcall fn 'a 1))))
(a b) t (a 1))
......
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