Changeset 5022

Timestamp:

Aug 25, 2006, 7:19:53 PM (18 years ago)

Author:

Gary Byers

Message:

PREPARE-TO-QUIT: other threads should be dead by the time that
streams on *OPEN-FILE-STREAMS* are closed, so unlock those
streams with extreme prejudice before closing them.

File:

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

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

@@ -156 +156 @@
     (shutdown-lisp-threads)
     (while *open-file-streams*
+      (let* ((ioblock (stream-ioblock (car *open-file-streams*) nil)))
+        (when ioblock
+          (setf (ioblock-inbuf-lock ioblock) nil
+                (ioblock-outbuf-lock ioblock) nil
+                (ioblock-owner ioblock) nil)))
       (close (car *open-file-streams*)))
     (setf (interrupt-level) -1)       ; can't abort after this