X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=cf7f9dbc5d760a5f2eebdbf1d4f9ab19038dc4df;hb=245101f127d61e28b9c864c720eb17973469a904;hp=20fa0dacadcf3aadcda51d0986fed5cb9ba544fc;hpb=833c031ec5dd8ee50dd2dbe003e7b2f398a8b699;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 20fa0da..cf7f9db 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -792,7 +792,8 @@ reset to ~S."
 		 "~&(no restarts: If you didn't do this on purpose, ~
                   please report it as a bug.)~%"))
 	(t
-	 (format s "~&restarts:~%")
+	 (format s "~&restarts (invokable by number or by ~
+                    possibly-abbreviated name):~%")
 	 (let ((count 0)
 	       (names-used '(nil))
 	       (max-name-len 0))
@@ -825,7 +826,7 @@ reset to ~S."
 	(*read-suppress* nil))
     (unless (typep *debug-condition* 'step-condition)
       (clear-input *debug-io*))
-    (debug-loop)))
+    (funcall *debug-loop-fun*)))
 
 ;;;; DEBUG-LOOP
 
@@ -836,7 +837,7 @@ reset to ~S."
   "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while
    executing in the debugger.")
 
-(defun debug-loop ()
+(defun debug-loop-fun ()
   (let* ((*debug-command-level* (1+ *debug-command-level*))
 	 (*real-stack-top* (sb!di:top-frame))
 	 (*stack-top* (or *stack-top-hint* *real-stack-top*))
@@ -884,6 +885,9 @@ reset to ~S."
 			(t
 			 (funcall cmd-fun))))))))))))
 
+(defvar *debug-loop-fun* #'debug-loop-fun
+  "a function taking no parameters that starts the low-level debug loop")
+
 ;;; FIXME: We could probably use INTERACTIVE-EVAL for much of this logic.
 (defun debug-eval-print (expr)
   (/noshow "entering DEBUG-EVAL-PRINT" expr)