Changeset 8682


Ignore:
Timestamp:
Mar 7, 2008, 6:53:30 AM (11 years ago)
Author:
gz
Message:

add :a as synonym for :pop and :c as a synonym for :go

File:
1 edited

Legend:

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

    r8283 r8682  
    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.