Changeset 11302 for release


Ignore:
Timestamp:
Nov 5, 2008, 9:05:52 PM (11 years ago)
Author:
gb
Message:

Propagate r11301 to 1.2.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/lib/dumplisp.lisp

    r8932 r11302  
    9090                                       application-class)))
    9191    (setq *application* (make-instance application-class)))
    92   (when (not toplevel-function)
     92  (if (not toplevel-function)
    9393    (setq toplevel-function
    9494          #'(lambda ()
     
    9696                                 (if init-file-p
    9797                                   init-file
    98                                    (application-init-file *application*))))))
     98                                   (application-init-file *application*)))))
     99    (let* ((user-toplevel-function (coerce-to-function toplevel-function)))
     100      (setq toplevel-function
     101            (lambda ()
     102              (restore-lisp-pointers)
     103              (initialize-interactive-streams)
     104              (process-run-function "toplevel" (lambda ()
     105                                                 (funcall user-toplevel-function)
     106                                                 (quit)))
     107              (%set-toplevel #'housekeeping-loop)
     108              (toplevel)))))
    99109  (when error-handler
    100110    (make-application-error-handler *application* error-handler))
Note: See TracChangeset for help on using the changeset viewer.