Changeset 12240 for trunk/source/level-1/l1-streams.lisp

Timestamp:

Jun 10, 2009, 8:41:20 AM (12 years ago)

Author:

gb

Message:

(experimentally) change the semantics of streams' :sharing :private
option: stream is "owned" by the first thread to do I/O on it, not
necessarily the creating thread.

INFER-LINE-TERMINATION on file streams: if the creating thread does
I/O (to infer line termination), renounce ownership after doing so.

File:

• trunk/source/level-1/l1-streams.lisp (modified) (3 diffs)

trunk/source/level-1/l1-streams.lisp

@@ -483 +483 @@
     (if owner
       (or (eq owner *current-process*)
+          (conditional-store (ioblock-owner ioblock) 0 *current-process*)
           (error "Stream ~s is private to ~s" (ioblock-stream ioblock) owner)))))
 
@@ -3107 +3108 @@
                       (stream-create-ioblock stream))))
     (when (eq sharing :private)
-      (setf (ioblock-owner ioblock) *current-process*))
+      (setf (ioblock-owner ioblock) 0))
     (setf (ioblock-encoding ioblock) encoding)
     (when insize
@@ -4770 +4771 @@
 (defmethod stream-owner ((stream buffered-stream-mixin))
   (let* ((ioblock (stream-ioblock stream nil)))
-    (and ioblock (ioblock-owner ioblock))))
+    (and ioblock (let* ((owner (ioblock-owner ioblock)))
+                   (unless (eql owner 0) owner)))))
 
 (defmethod stream-owner ((stream basic-stream))
   (let* ((ioblock (basic-stream.state stream)))
-    (and ioblock (ioblock-owner ioblock))))
+    (and ioblock (let* ((owner (ioblock-owner ioblock)))
+                   (unless (eql owner 0) owner)))))