Changeset 13345

Timestamp:

Dec 30, 2009, 7:06:08 AM (15 years ago)

Author:

gz

Message:

show type of error on error exit in batch mode

File:

• trunk/source/level-1/l1-readloop-lds.lisp (modified) (1 diff)

trunk/source/level-1/l1-readloop-lds.lisp

@@ -492 +492 @@
             (*debugger-hook* nil))
         (funcall hook condition hook)))
-    (%break-message "Error" condition)
+    (let ((msg (if *batch-flag* ;; Give a little more info if exiting
+                 (format nil "Error of type ~s" (type-of condition))
+                 "Error")))
+      (%break-message msg condition))
     (let* ((s *error-output*))
       (dolist (bogusness bogus-globals)