/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by ram, Tue Sep 3 20:44:46 1991 UTC revision 1.10.2.1 by wlott, Fri Jan 24 04:33:07 1992 UTC
# Line 47  Line 47 
47  (defvar lisp-environment-list)  (defvar lisp-environment-list)
48    
49    
50  (def-c-routine "save" (boolean)  (alien:def-alien-routine "save" (alien:boolean)
51    (file null-terminated-string))    (file c-call:c-string))
52    
53    
54  ;;; PARSE-UNIX-SEARCH-LIST  --  Internal  ;;; PARSE-UNIX-SEARCH-LIST  --  Internal
# Line 215  Line 215 
215      (error "Change *PACKAGE* to the USER package and try again.")))      (error "Change *PACKAGE* to the USER package and try again.")))
216    
217  (defun initial-init-function ()  (defun initial-init-function ()
   (gc-on)  
218    (throw 'top-level-catcher nil))    (throw 'top-level-catcher nil))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.2.1

  ViewVC Help
Powered by ViewVC 1.1.5