Changeset 8205


Ignore:
Timestamp:
Jan 17, 2008, 6:47:32 PM (12 years ago)
Author:
gb
Message:

ABNORMAL-APPLICATION-EXIT lost in merge.

File:
1 edited

Legend:

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

    r8168 r8205  
    409409  (break-loop-handle-error condition error-pointer))
    410410
     411(defun abnormal-application-exit ()
     412  (print-call-history)
     413  (force-output *debug-io*)
     414  (quit -1))
     415
    411416(defun break-loop-handle-error (condition error-pointer)
    412417  (multiple-value-bind (bogus-globals newvals oldvals) (%check-error-globals)
Note: See TracChangeset for help on using the changeset viewer.