Changeset 14650

Timestamp:

Feb 8, 2011, 11:00:58 AM (14 years ago)

Author:

Gary Byers

Message:

In %SAVE-APPLICATION-INTERNAL, use MAKE-MCL-LISTENER-PROCESS to
run the user-specified toplevel-function, to ensure that that
process owns terminal input and that output is automatically
flushed.

File:

• trunk/source/lib/dumplisp.lisp (modified) (1 diff)

trunk/source/lib/dumplisp.lisp

@@ -146 +146 @@
       (setq toplevel-function
             (lambda ()
-              (process-run-function "toplevel" (lambda ()
-                                                 (funcall user-toplevel-function)
-                                                 (quit)))
+              (make-mcl-listener-process
+               "toplevel"
+                *stdin*
+                *stdout*
+                 #'quit
+               :initial-function (lambda ()
+                                   (catch :toplevel
+                                     (funcall user-toplevel-function)))
+               )
               (%set-toplevel #'housekeeping-loop)
               (toplevel)))))