Changeset 12240 for trunk/source/level-1/l1-streams.lisp
- Timestamp:
- Jun 10, 2009, 8:41:20 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-streams.lisp
r12217 r12240 483 483 (if owner 484 484 (or (eq owner *current-process*) 485 (conditional-store (ioblock-owner ioblock) 0 *current-process*) 485 486 (error "Stream ~s is private to ~s" (ioblock-stream ioblock) owner))))) 486 487 … … 3107 3108 (stream-create-ioblock stream)))) 3108 3109 (when (eq sharing :private) 3109 (setf (ioblock-owner ioblock) *current-process*))3110 (setf (ioblock-owner ioblock) 0)) 3110 3111 (setf (ioblock-encoding ioblock) encoding) 3111 3112 (when insize … … 4770 4771 (defmethod stream-owner ((stream buffered-stream-mixin)) 4771 4772 (let* ((ioblock (stream-ioblock stream nil))) 4772 (and ioblock (ioblock-owner ioblock)))) 4773 (and ioblock (let* ((owner (ioblock-owner ioblock))) 4774 (unless (eql owner 0) owner))))) 4773 4775 4774 4776 (defmethod stream-owner ((stream basic-stream)) 4775 4777 (let* ((ioblock (basic-stream.state stream))) 4776 (and ioblock (ioblock-owner ioblock)))) 4778 (and ioblock (let* ((owner (ioblock-owner ioblock))) 4779 (unless (eql owner 0) owner))))) 4777 4780 4778 4781
Note: See TracChangeset
for help on using the changeset viewer.