1.0.19.7: refactor stack allocation decisions

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

diff --git a/src/code/step.lisp b/src/code/step.lisp
index 66a8313..43a4801 100644 (file)
--- 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))