Changeset 11984 for release/1.3


Ignore:
Timestamp:
Apr 29, 2009, 3:46:02 PM (10 years ago)
Author:
gb
Message:

Propagae r11983 to 1.3.

File:
1 edited

Legend:

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

    r11981 r11984  
    9999
    100100(defun %save-application-internal (filename &key
    101                                             toplevel-function  ;????
     101                                            toplevel-function ;????
    102102                                            error-handler ; meaningless unless application-class or *application* not lisp-development..
    103103                                            application-class
     
    120120                                   init-file
    121121                                   (application-init-file *application*)))))
    122         (let* ((user-toplevel-function (coerce-to-function toplevel-function)))
     122    (let* ((user-toplevel-function (coerce-to-function toplevel-function)))
    123123      (setq toplevel-function
    124124            (lambda ()
    125               (restore-lisp-pointers)
    126               ;; Shouldn't be necessary post 1.2
    127               ;;(initialize-interactive-streams)
    128125              (process-run-function "toplevel" (lambda ()
    129126                                                 (funcall user-toplevel-function)
Note: See TracChangeset for help on using the changeset viewer.