Ignore:
Timestamp:
Jan 26, 2008, 5:15:02 PM (12 years ago)
Author:
gb
Message:

changes from working-0711 branch

File:
1 edited

Legend:

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

    r8205 r8286  
    327327                          (cons keyword params)
    328328                          keyword)))
    329                     (params param)))))))))))
     329                    (params (eval param))))))))))))
    330330
    331331;;; Read a form from the specified stream.
     
    410410
    411411(defun abnormal-application-exit ()
    412   (print-call-history)
    413   (force-output *debug-io*)
    414   (quit -1))
     412  (ignore-errors
     413    (print-call-history)
     414    (force-output *debug-io*)
     415    (quit -1))
     416  (#__exit -1))
    415417
    416418(defun break-loop-handle-error (condition error-pointer)
Note: See TracChangeset for help on using the changeset viewer.