Ignore:
Timestamp:
Jun 5, 2009, 6:59:20 PM (10 years ago)
Author:
gz
Message:

Merge r11495, r12082: new options in ccl:quit.

File:
1 edited

Legend:

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

    r11757 r12205  
    643643(defmethod process-exit-application ((process process) thunk)
    644644  (when (eq process *initial-process*)
    645     (prepare-to-quit)
     645    (with-standard-abort-handling "Exit Lisp"
     646      (prepare-to-quit)
     647      (fresh-line *stdout*)
     648      (finish-output *stdout*))
    646649    (%set-toplevel thunk)
    647     (fresh-line *stdout*)
    648     (finish-output *stdout*)
    649650    (toplevel)))
    650651
Note: See TracChangeset for help on using the changeset viewer.