Changeset 7699

Timestamp:

Nov 20, 2007, 8:21:52 AM (17 years ago)

Author:

gz

Message:

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

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-readloop.lisp

@@ -161 +161 @@
         (close (car streams))))
     (setf (interrupt-level) -1)         ; can't abort after this
-    ))
+    )
+  ;; Didn't abort, so really quitting.
+  (setq *quitting* t))