Ignore:
Timestamp:
Mar 15, 2008, 4:08:32 PM (12 years ago)
Author:
gz
Message:

Propagate changeset:8682 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r8758 r8791  
    9292
    9393(define-toplevel-command :break pop () "exit current break loop" (abort-break))
     94(define-toplevel-command :break a () "exit current break loop" (abort-break))
    9495(define-toplevel-command :break go () "continue" (continue))
    9596(define-toplevel-command :break q () "return to toplevel" (toplevel))
     
    133134                          :start-frame-number (or start 0))))
    134135
    135 (define-toplevel-command :break c (n) "Choose restart <n>"
    136    (select-restart n))
     136(define-toplevel-command :break c (&optional n) "Choose restart <n>. If no <n>, continue"
     137  (if n
     138   (select-restart n)
     139   (continue)))
    137140
    138141(define-toplevel-command :break f (n) "Show backtrace frame <n>"
Note: See TracChangeset for help on using the changeset viewer.