X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstep.lisp;h=a7222b3f6c42dcad45b16e9182d34241ed8adf28;hb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;hp=db868387074dd9b6c34a8bc03322a5c070e7d0de;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/step.lisp b/src/code/step.lisp
index db86838..a7222b3 100644
--- a/src/code/step.lisp
+++ b/src/code/step.lisp
@@ -22,6 +22,7 @@ stepper's prompt:
  N: Evaluate the current expression without stepping.
  C: Evaluate to finish without stepping.
  Q: Abort evaluation.
+ B: Backtrace.
  ?: Display this message.
 ")
 
@@ -46,6 +47,8 @@ stepper's prompt:
      (let ((line (read-line *debug-io*)))
        (if (plusp (length line))
            (case (char-upcase (schar line 0))
+             (#\B
+              (backtrace))
              (#\Q
               (abort condition))
              (#\C
@@ -57,7 +60,7 @@ stepper's prompt:
              (#\?
               (write-line *step-help* *debug-io*))))))))
 
-(defvar *stepper-hook* #'single-step
+(defvar *stepper-hook* 'single-step
   #+sb-doc "Customization hook for alternative single-steppers.
 *STEPPER-HOOK* is bound to NIL prior to calling the bound function
 with the STEP-CONDITION as argument.")