X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbackq.lisp;h=d9c8c00838b20b79381c334f3013aaced08429e6;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=5b3cd9c7803ac503e2556137231b876126f3a2fd;hpb=42702bd5e2af3e0042c9f27372c6f5d92335df12;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 5b3cd9c..d9c8c00 100644
--- 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*)