Changeset 7699


Ignore:
Timestamp:
Nov 20, 2007, 4:21:52 PM (12 years ago)
Author:
gz
Message:

prepare-to-quit: leave *quitting* set to T if really quitting

File:
1 edited

Legend:

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

    r6018 r7699  
    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.