1.0.27.31: repeatable fasl header and debug-source

[sbcl.git] / src / code / backq.lisp

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 5b3cd9c..d9c8c00 100644 (file)
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -208,7 +208,7 @@
                ;; whether there's still an optimizer bug, and fix it if so, and
                ;; then make these INLINE.
                `(defun ,b-name (&rest ,args)
-                  (declare (dynamic-extent ,args))
+                  (declare (truly-dynamic-extent ,args))
                   (apply #',name ,args)))))
   (def backq-list list)
   (def backq-list* list*)