Changeset 13361

Timestamp:

Jan 4, 2010, 8:40:23 AM (15 years ago)

Author:

gz

Message:

show type of error on exit in batch mode (r13345)

Location:

branches/working-0711/ccl

Files:

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

branches/working-0711/ccl/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)