Changeset 9726


Ignore:
Timestamp:
Jun 10, 2008, 1:00:43 PM (11 years ago)
Author:
mb
Message:

Minor reformating of previous commit's output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

    r9725 r9726  
    9191
    9292
     93(defun list-restarts ()
     94  (format *debug-io* "~&>   Type (:C <n>) to invoke one of the following restarts:")
     95  (display-restarts))
     96
    9397(define-toplevel-command :break pop () "exit current break loop" (abort-break))
    9498(define-toplevel-command :break a () "exit current break loop" (abort-break))
    9599(define-toplevel-command :break go () "continue" (continue))
    96100(define-toplevel-command :break q () "return to toplevel" (toplevel))
    97 (define-toplevel-command :break r () "list restarts"
    98   (format *debug-io* "~&   (:C <n>) can be used to invoke one of the following restarts in this break loop:")
    99   (display-restarts))
     101(define-toplevel-command :break r () "list restarts" (list-restarts))
    100102
    101103(define-toplevel-command :break set (n frame value) "Set <n>th item of frame <frame> to <value>"
     
    106108
    107109(define-toplevel-command :break nframes ()
    108                          "print the number of stack frames accessible from this break loop"
    109                          (do* ((p *break-frame* (parent-frame p nil))
    110                                (i 0 (1+ i))
    111                                (last (last-frame-ptr)))
    112                               ((eql p last) (toplevel-print (list i)))))
     110  "print the number of stack frames accessible from this break loop"
     111  (do* ((p *break-frame* (parent-frame p nil))
     112        (i 0 (1+ i))
     113        (last (last-frame-ptr)))
     114      ((eql p last) (toplevel-print (list i)))))
    113115
    114116(define-toplevel-command :global ? () "help"
     
    277279                       (prompt-function #'(lambda (stream)
    278280                                            (when (and *show-available-restarts* *break-condition*)
    279                                               (display-restarts)
     281                                              (list-restarts)
    280282                                              (setf *show-available-restarts* nil))
    281283                                            (print-listener-prompt stream t))))
Note: See TracChangeset for help on using the changeset viewer.