Changeset 482

Timestamp:

Feb 6, 2004, 11:39:56 AM (21 years ago)

Author:

Gary Byers

Message:

MAKE-MCL-LISTENER-PROCESS: spawned process becomes "primary owner" of
input stream, if it has an attached SHARED-RESOURCE.

File:

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

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

@@ -76 +76 @@
                                      (pushnew output-stream
                                               *auto-flush-streams*))
+                                   (let* ((shared-input
+                                           (input-stream-shared-resource
+                                            input-stream)))
+                                     (when shared-input
+                                       (setf (shared-resource-primary-owner
+                                              shared-input)
+                                             *current-process*)))
                                    (funcall initial-function))
                               (with-lock-grabbed