Changeset 11302
- Timestamp:
- Nov 5, 2008, 9:05:52 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/lib/dumplisp.lisp
r8932 r11302 90 90 application-class))) 91 91 (setq *application* (make-instance application-class))) 92 ( when(not toplevel-function)92 (if (not toplevel-function) 93 93 (setq toplevel-function 94 94 #'(lambda () … … 96 96 (if init-file-p 97 97 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))))) 99 109 (when error-handler 100 110 (make-application-error-handler *application* error-handler))
Note: See TracChangeset
for help on using the changeset viewer.