0.8.19.1:

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

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 49d1ba8..0e7896d 100644 (file)
--- 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*)