Changeset 9726

Timestamp:

Jun 10, 2008, 6:00:43 AM (16 years ago)

Author:

marco baringer

Message:

Minor reformating of previous commit's output

File:

• branches/working-0711/ccl/level-1/l1-readloop-lds.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

@@ -91 +91 @@
 
 
+(defun list-restarts ()
+  (format *debug-io* "~&>   Type (:C <n>) to invoke one of the following restarts:")
+  (display-restarts))
+
 (define-toplevel-command :break pop () "exit current break loop" (abort-break))
 (define-toplevel-command :break a () "exit current break loop" (abort-break))
 (define-toplevel-command :break go () "continue" (continue))
 (define-toplevel-command :break q () "return to toplevel" (toplevel))
-(define-toplevel-command :break r () "list restarts"
-  (format *debug-io* "~&   (:C <n>) can be used to invoke one of the following restarts in this break loop:")
-  (display-restarts))
+(define-toplevel-command :break r () "list restarts" (list-restarts))
 
 (define-toplevel-command :break set (n frame value) "Set <n>th item of frame <frame> to <value>"
@@ -106 +108 @@
 
 (define-toplevel-command :break nframes ()
-                         "print the number of stack frames accessible from this break loop"
-                         (do* ((p *break-frame* (parent-frame p nil))
-                               (i 0 (1+ i))
-                               (last (last-frame-ptr)))
-                              ((eql p last) (toplevel-print (list i)))))
+  "print the number of stack frames accessible from this break loop"
+  (do* ((p *break-frame* (parent-frame p nil))
+        (i 0 (1+ i))
+        (last (last-frame-ptr)))
+      ((eql p last) (toplevel-print (list i)))))
 
 (define-toplevel-command :global ? () "help"
@@ -277 +279 @@
                        (prompt-function #'(lambda (stream)
                                             (when (and *show-available-restarts* *break-condition*)
-                                              (display-restarts)
+                                              (list-restarts)
                                               (setf *show-available-restarts* nil))
                                             (print-listener-prompt stream t))))