/[gcl]/gcl/unixport/init_gcl.lsp
ViewVC logotype

Diff of /gcl/unixport/init_gcl.lsp

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

revision 1.3 by wfs, Fri May 11 05:56:54 2001 UTC revision 1.4 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 21  Line 21 
21  (setq compiler::*cmpinclude* "<cmpinclude.h>") (load #"../cmpnew/cmpmain.lsp") (gbc t)  (setq compiler::*cmpinclude* "<cmpinclude.h>") (load #"../cmpnew/cmpmain.lsp") (gbc t)
22   (load #"../cmpnew/lfun_list.lsp")   (load #"../cmpnew/lfun_list.lsp")
23   (gbc t) (load #"../cmpnew/cmpopt.lsp") (gbc t)   (gbc t) (load #"../cmpnew/cmpopt.lsp") (gbc t)
24  (load #"../lsp/auto.lsp") (gbc t)  (load #"../lsp/auto_new.lsp") (gbc t)
25    
26   (when compiler::*cmpinclude-string*   (when compiler::*cmpinclude-string*
27    (with-open-file (st "../h/cmpinclude.h")    (with-open-file (st "../h/cmpinclude.h")
# Line 94  Line 94 
94   (unintern 'compiler)   (unintern 'compiler)
95   (unintern 'user)   (unintern 'user)
96   ;system-init   ;system-init
97    
98   (if (fboundp 'user-init) (user-init))   (if (fboundp 'user-init) (user-init))
99   (si::set-up-top-level)   (si::set-up-top-level)
100   (in-package "USER")   (in-package "USER")
101   (system:save-system "saved_gcl") (bye)   (system:save-system "saved_gcl") (bye)
102   (defun system:top-level nil (system::gcl-top-level))   (defun system:top-level nil (system::gcl-top-level))
103   (save "saved_gcl") (bye))   (save "saved_gcl") (bye))
   

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26