Changeset 5019

Timestamp:

Aug 25, 2006, 7:13:34 PM (18 years ago)

Author:

Gary Byers

Message:

MAKE-MCL-LISTENER-STREAM uses ADD-AUTOFLUSH-STREAM, REMOVE-AUTOFLUSH-STREAM.

File:

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

trunk/ccl/level-1/l1-boot-lds.lisp

@@ -85 +85 @@
                             (unwind-protect
                                  (progn
-                                   (with-lock-grabbed
-                                       (*auto-flush-streams-lock*)
-                                     (pushnew output-stream
-                                              *auto-flush-streams*))
+                                   (add-autoflush-stream output-stream)
                                    (let* ((shared-input
                                            (input-stream-shared-resource
@@ -100 +97 @@
                                     :note-current-package *package*)
                                    (funcall initial-function))
-                              (with-lock-grabbed
-                                  (*auto-flush-streams-lock*)
-                                (setq *auto-flush-streams*
-                                      (delete output-stream
-                                              *auto-flush-streams*)))
+                              (remove-autoflush-stream output-stream)
                               (funcall cleanup-function)
                               (when close-streams