X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstep.lisp;h=66a83131ba9b76b40a093bc2a6644feb9818b148;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=9d63d3405ba6931f487da01da0c65fd22b5e140c;hpb=1a3143cca7d6678c094b6bacc485e8531808ea59;p=sbcl.git

diff --git a/src/code/step.lisp b/src/code/step.lisp
index 9d63d34..66a8313 100644
--- a/src/code/step.lisp
+++ b/src/code/step.lisp
@@ -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