0.pre7.86.flaky7.22:

[sbcl.git] / src / code / target-alieneval.lisp

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index e8de84d..e7d5054 100644 (file)
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -653,7 +653,7 @@
         ;; anyway, and (2) such a declamation can be (especially for
         ;; alien values) both messy to do by hand and very important
         ;; for performance of later code which uses the return value.
-        (declaim (ftype (function (mapcar (constantly t) ',args)
+        (declaim (ftype (function ,(mapcar (constantly t) args)
                                   (alien ,result-type))
                         ,lisp-name))