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") |
95 |
(unintern 'user) |
(unintern 'user) |
96 |
;system-init |
;system-init |
97 |
|
|
|
; init Readline word completion list for Gcl |
|
|
(if (fboundp 'si::readline-init) |
|
|
(let (l) |
|
|
(sloop::sloop for v in-package 'lisp do |
|
|
(if (or (boundp v) (fboundp v)) |
|
|
(setq l (cons (symbol-name v) l)))) |
|
|
(sloop::sloop for v in-package 'keyword do |
|
|
(if (or (boundp v) (fboundp v)) |
|
|
(setq l (cons (format nil ":~A" v) l)))) |
|
|
(si::readline-init t "Gcl" 1 l))) |
|
|
|
|
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") |