Changeset 5995

Timestamp:

Mar 7, 2007, 6:24:29 AM (18 years ago)

Author:

Gary Byers

Message:

OPEN, CLOSE lock *OPEN-FILE-STREAMS-LOCK* before accessing *OPEN-FILE-STREAMS*.

File:

• trunk/ccl/level-1/l1-sysio.lisp (modified) (2 diffs)

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

@@ -639 +639 @@
             (unix-rename (namestring actual-filename) (probe-file-x filename)))
           (delete-file actual-filename)))
-      (setq *open-file-streams* (nremove s *open-file-streams*)))))
+      (with-lock-grabbed (*open-file-streams-lock*)
+        (setq *open-file-streams* (nremove s *open-file-streams*))))))
 
 
@@ -842 +843 @@
                   (if (eq direction :probe)
                     (close fstream)
-                    (push fstream *open-file-streams*))
+                    (with-lock-grabbed (*open-file-streams-lock*)
+                      (push fstream *open-file-streams*)))
                   fstream)))))))))