Index: /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 9581)
+++ /branches/working-0711/ccl/level-1/l1-readloop-lds.lisp	(revision 9582)
@@ -545,4 +545,5 @@
 (defvar *break-frame* nil "frame-pointer arg to break-loop")
 (defvar *break-loop-when-uninterruptable* t)
+(defvar *show-restarts-on-break* #+ccl-0711 t #-ccl-0711 nil)
 
 (defvar *error-reentry-count* 0)
@@ -591,13 +592,23 @@
            (*backtrace-contexts* (cons context *backtrace-contexts*)))
       (with-toplevel-commands :break
-        (if *continuablep*
-          (let* ((*print-circle* *error-print-circle*)
-                 (*print-level* *backtrace-print-level*)
-                 (*print-length* *backtrace-print-length*)
+        (if *show-restarts-on-break*
+          (let ((*print-circle* *error-print-circle*)
+                (*print-level* *backtrace-print-level*)
+                (*print-length* *backtrace-print-length*)
 					;(*print-pretty* nil)
-                 (*print-array* nil))
-            (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
-            (format t "~&> If continued: ~A~%" continue))
-          (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
+                (*print-array* nil))
+            (format t "~&> Type :POP to abort, or :C <n> to invoke one of the following restarts:")
+            (let* ((r (apply #'vector (compute-restarts *break-condition*))))
+              (dotimes (i (length r) (terpri))
+                (format t "~&~d. ~a" i (svref r i)))))
+          (if *continuablep*
+            (let* ((*print-circle* *error-print-circle*)
+                   (*print-level* *backtrace-print-level*)
+                   (*print-length* *backtrace-print-length*)
+					;(*print-pretty* nil)
+                   (*print-array* nil))
+              (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
+              (format t "~&> If continued: ~A~%" continue))
+            (format t "~&> Type :POP to abort, :R for a list of available restarts.~%")))
         (format t "~&> Type :? for other options.")
         (terpri)