X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstep.lisp;h=43a4801383b14b684a363d5e48f9883528e988de;hb=5f0cfcf9095f2d8dbca4ddf703c580a36d5c3709;hp=66a83131ba9b76b40a093bc2a6644feb9818b148;hpb=90a83478829f33b91f6300c183b374a968bc13c6;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))