Changeset 5049

Timestamp:

Aug 28, 2006, 3:56:28 AM (18 years ago)

Author:

Gary Byers

Message:

Unscramble auto-flush-streams stuff (don't assume ioblock-based stream.)

File:

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

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

@@ -182 +182 @@
   (with-lock-grabbed (*auto-flush-streams-lock*)
     (dolist (s *auto-flush-streams*)
-      (when (and (open-stream-p s)
-                 (ioblock-outbuf-lock (stream-ioblock s t)))
-        (maybe-stream-force-output s)))))
+      (when (open-stream-p s)
+        (if (or (typep s 'basic-stream)
+                (typep s 'buffered-io-stream-mixin))
+          (if (ioblock-outbuf-lock (stream-ioblock s t))
+            (maybe-stream-force-output s)))
+        (force-output s)))))
 
 (defun add-auto-flush-stream (s)
   (with-lock-grabbed (*auto-flush-streams-lock*)
-    (unless (member s *auto-flush-streams*)
-      (let* ((ioblock (stream-ioblock s t)))
-        (unless (ioblock-outbuf-lock ioblock)
-          (setf (ioblock-outbuf-lock ioblock) (make-lock)
-                (ioblock-owner ioblock) nil)))
-      (push s *auto-flush-streams*))))
+    (when (typep s 'output-stream)
+      (pushnew s *auto-flush-streams*))))
       
 (defun remove-auto-flush-stream (s)