Changeset 8205

Timestamp:

Jan 17, 2008, 10:47:32 AM (17 years ago)

Author:

Gary Byers

Message:

ABNORMAL-APPLICATION-EXIT lost in merge.

File:

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

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

@@ -409 +409 @@
   (break-loop-handle-error condition error-pointer))
 
+(defun abnormal-application-exit ()
+  (print-call-history)
+  (force-output *debug-io*)
+  (quit -1))
+
 (defun break-loop-handle-error (condition error-pointer)
   (multiple-value-bind (bogus-globals newvals oldvals) (%check-error-globals)