Changeset 7731


Ignore:
Timestamp:
Nov 25, 2007, 2:29:57 AM (12 years ago)
Author:
gb
Message:

BREAK: exit if *bactch-flag*.

File:
1 edited

Legend:

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

    r7624 r7731  
    415415  "Print a message and invoke the debugger without allowing any possibility
    416416   of condition handling occurring."
    417   (apply #'%break-in-frame (%get-frame-ptr) string args))
     417  (if *batch-flag*
     418    (apply #'error string args)
     419    (apply #'%break-in-frame (%get-frame-ptr) string args)))
    418420
    419421(defun %break-in-frame (fp &optional string &rest args)
Note: See TracChangeset for help on using the changeset viewer.