Ignore:
Timestamp:
Dec 30, 2009, 3:06:08 PM (10 years ago)
Author:
gz
Message:

show type of error on error exit in batch mode

File:
1 edited

Legend:

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

    r13183 r13345  
    492492            (*debugger-hook* nil))
    493493        (funcall hook condition hook)))
    494     (%break-message "Error" condition)
     494    (let ((msg (if *batch-flag* ;; Give a little more info if exiting
     495                 (format nil "Error of type ~s" (type-of condition))
     496                 "Error")))
     497      (%break-message msg condition))
    495498    (let* ((s *error-output*))
    496499      (dolist (bogusness bogus-globals)
Note: See TracChangeset for help on using the changeset viewer.