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") |
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)) |
|
|
|