Changeset 7623 for branches/working-0710


Ignore:
Timestamp:
Nov 9, 2007, 10:43:34 PM (12 years ago)
Author:
gb
Message:

If *batch-flag* (set by --batch command-line argument) is true,
don't observe *debugger-hook* or enter a break loop on error;
instead, quit with a non-zero exit status.

File:
1 edited

Legend:

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

    r7406 r7623  
    392392    (dolist (x bogus-globals)
    393393      (set x (funcall (pop newvals))))
    394     (when (and *debugger-hook* *break-on-errors*)
     394    (when (and *debugger-hook* *break-on-errors* (not *batch-flag*))
    395395      (let ((hook *debugger-hook*)
    396396            (*debugger-hook* nil))
     
    406406              (format s "~s" oldval))
    407407            (format s ", was reset to ~s ." (symbol-value bogusness)))))
    408       (if *break-on-errors*
     408      (if (and *break-on-errors* (not *batch-flag*))
    409409        (break-loop condition error-pointer)
    410         (abort)))))
     410        (if *batch-flag*
     411          (quit -1)
     412          (abort))))))
    411413
    412414(defun break (&optional string &rest args)
Note: See TracChangeset for help on using the changeset viewer.