Changeset 5892

Timestamp:

Feb 11, 2007, 4:24:58 AM (18 years ago)

Author:

Gary Byers

Message:

LISP-DEVELOPMENT-SYSTEM tries to make the initial-listener object
persistent acrosss SAVE-APPLICATION.

File:

• trunk/ccl/level-1/l1-application.lisp (modified) (2 diffs)

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

@@ -243 +243 @@
            :may-take-operand nil
            :allow-multiple nil)
-          ))))
+          ))
+   (initial-listener-process :initform nil)))
 
 (defparameter *application*
@@ -276 +277 @@
   (call-next-method)
   (let* ((sr (input-stream-shared-resource *terminal-input*)))
-    (make-mcl-listener-process
-     "listener"
-     *terminal-input*
-     *terminal-output*
-     #'(lambda () (when sr (setf (shared-resource-primary-owner sr)
-                                 *initial-process*)))
-     :initial-function
-     #'(lambda ()
-         (startup-ccl (and *load-lisp-init-file* init-file))
-         (listener-function)
-         nil)
-     :close-streams nil
-     :control-stack-size *initial-listener-default-control-stack-size*
-     :value-stack-size *initial-listener-default-value-stack-size*
-     :temp-stack-size *initial-listener-default-temp-stack-size*))
+    (with-slots (initial-listener-process) a
+      (setq initial-listener-process
+            (make-mcl-listener-process
+             "listener"
+             *terminal-input*
+             *terminal-output*
+             #'(lambda () (when sr (setf (shared-resource-primary-owner sr)
+                                         *initial-process*)))
+             :initial-function
+             #'(lambda ()
+                 (startup-ccl (and *load-lisp-init-file* init-file))
+                 (listener-function)
+                 nil)
+             :close-streams nil
+             :control-stack-size *initial-listener-default-control-stack-size*
+             :value-stack-size *initial-listener-default-value-stack-size*
+             :temp-stack-size *initial-listener-default-temp-stack-size*
+             :process initial-listener-process))))
   (%set-toplevel #'(lambda ()
                      (with-standard-abort-handling nil