[Openmcl-cvs-notifications] r11984 - /release/1.3/source/lib/dumplisp.lisp

[gb at clozure.com]

Author: gb
Date: Wed Apr 29 11:46:02 2009
New Revision: 11984

Log:
Propagae r11983 to 1.3.

Modified:
    release/1.3/source/lib/dumplisp.lisp

Modified: release/1.3/source/lib/dumplisp.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- release/1.3/source/lib/dumplisp.lisp (original)
+++ release/1.3/source/lib/dumplisp.lisp Wed Apr 29 11:46:02 2009
@@ -98,7 +98,7 @@
 	(process-kill cp)))))
 =

 (defun %save-application-internal (filename &key
-                                            toplevel-function  ;???? =

+                                            toplevel-function ;???? =

                                             error-handler ; meaningless un=
less application-class or *application* not lisp-development..
                                             application-class
 					    (mode #o644)
@@ -119,12 +119,9 @@
 				 (if init-file-p
 				   init-file
 				   (application-init-file *application*)))))
-        (let* ((user-toplevel-function (coerce-to-function toplevel-functi=
on)))
+    (let* ((user-toplevel-function (coerce-to-function toplevel-function)))
       (setq toplevel-function
             (lambda ()
-              (restore-lisp-pointers)
-              ;; Shouldn't be necessary post 1.2
-              ;;(initialize-interactive-streams)
               (process-run-function "toplevel" (lambda ()
                                                  (funcall user-toplevel-fu=
nction)
                                                  (quit)))