X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fbackq.lisp;h=0e7896d87a414ea0e23ab3b6c25d28c46bbdda5f;hb=fedd9f4e92ddb1b599695043eb1dafe356475afc;hp=49d1ba8549a94dbbd740c452be3db44260351efc;hpb=7abb9e44907ef12b52ac26d6482fbe21c036ee9b;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 49d1ba8..0e7896d 100644
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -207,6 +207,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))
 		  (apply #',name ,args)))))
   (def backq-list list)
   (def backq-list* list*)