Changeset 8169


Ignore:
Timestamp:
Jan 17, 2008, 3:03:51 PM (12 years ago)
Author:
gb
Message:

gz's changes to PREPARE-TO-QUIT (from trunk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-1/l1-readloop.lisp

    r6018 r8169  
    124124
    125125
    126 (defglobal *quitting* nil)
     126(defloadvar *quitting* nil)
    127127
    128128
     
    161161        (close (car streams))))
    162162    (setf (interrupt-level) -1)         ; can't abort after this
    163     ))
     163    )
     164  ;; Didn't abort, so really quitting.
     165  (setq *quitting* t))
    164166
    165167
Note: See TracChangeset for help on using the changeset viewer.