Ignore:
Timestamp:
Jun 10, 2009, 8:41:20 AM (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-sysio.lisp

    r11628 r12240  
    7676            (install-ioblock-input-line-termination file-ioblock line-termination)
    7777            (when (file-ioblock-outbuf file-ioblock)
    78               (install-ioblock-output-line-termination file-ioblock line-termination))))))))
     78              (install-ioblock-output-line-termination file-ioblock line-termination))))))
     79    (when (eq (ioblock-owner file-ioblock) *current-process*)
     80      (setf (ioblock-owner file-ioblock) 0))))
    7981
    8082
Note: See TracChangeset for help on using the changeset viewer.