X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstep.lisp;h=43a4801383b14b684a363d5e48f9883528e988de;hb=6822034325136cde4e14773c83c3769b42721306;hp=66a83131ba9b76b40a093bc2a6644feb9818b148;hpb=451d6e4af62dc8bbad57219c403d4395db84a4d6;p=sbcl.git

diff --git a/src/code/step.lisp b/src/code/step.lisp
index 66a8313..43a4801 100644
--- a/src/code/step.lisp
+++ b/src/code/step.lisp
@@ -41,7 +41,7 @@
       t)))
 
 (defun step-values (form &rest values)
-  (declare (dynamic-extent values))
+  (declare (truly-dynamic-extent values))
   (signal 'step-values-condition :form form :result values)
   (values-list values))