Changeset 8283


Ignore:
Timestamp:
Jan 25, 2008, 2:20:23 AM (17 years ago)
Author:
Gary Byers
Message:

IGNORE-ERRORS in ABNORMAL-APPLICATION-EXIT.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

    r8063 r8283  
    401401
    402402(defun abnormal-application-exit ()
    403   (print-call-history)
    404   (force-output *debug-io*)
    405   (quit -1))
     403  (ignore-errors
     404    (print-call-history)
     405    (force-output *debug-io*)
     406    (quit -1))
     407  (#__exit -1))
    406408
    407409(defun break-loop-handle-error (condition error-pointer)
Note: See TracChangeset for help on using the changeset viewer.