X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstep.lisp;h=43a4801383b14b684a363d5e48f9883528e988de;hb=3f3033a6c0ddf0af8dd1b5a17c2a4b82ea59b94f;hp=9d63d3405ba6931f487da01da0c65fd22b5e140c;hpb=1a3143cca7d6678c094b6bacc485e8531808ea59;p=sbcl.git diff --git a/src/code/step.lisp b/src/code/step.lisp index 9d63d34..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)) @@ -50,17 +50,6 @@ (signal 'step-finished-condition) (continue ()))) -(defvar *step-help* "The following commands are available at the single -stepper's prompt: - - S: Step into the current expression. - N: Evaluate the current expression without stepping. - C: Evaluate to finish without stepping. - Q: Abort evaluation. - B: Backtrace. - ?: Display this message. -") - (defgeneric single-step (condition)) (defmethod single-step ((condition step-values-condition)) @@ -109,8 +98,7 @@ outside the lexical scope of the form can be stepped into only if the functions in question have been compiled with sufficient DEBUG policy to be at least partially steppable." `(locally - (declare (optimize debug (sb-c:insert-step-conditions 0))) - (format t "Single stepping. Type ? for help.~%") + (declare (optimize debug (sb-c:insert-step-conditions 0))) ;; Allow stepping out of the STEP form. (let ((*step-out* :maybe)) (unwind-protect