Changeset 7731

Timestamp:

Nov 24, 2007, 6:29:57 PM (17 years ago)

Author:

Gary Byers

Message:

BREAK: exit if *bactch-flag*.

File:

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

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

@@ -415 +415 @@
   "Print a message and invoke the debugger without allowing any possibility
    of condition handling occurring."
-  (apply #'%break-in-frame (%get-frame-ptr) string args))
+  (if *batch-flag*
+    (apply #'error string args)
+    (apply #'%break-in-frame (%get-frame-ptr) string args)))
 
 (defun %break-in-frame (fp &optional string &rest args)