18 |
(setq lisp::*link-array* |
(setq lisp::*link-array* |
19 |
(make-array (ash 1 11) :element-type 'string-char :fill-pointer 0))) |
(make-array (ash 1 11) :element-type 'string-char :fill-pointer 0))) |
20 |
(si::use-fast-links t) |
(si::use-fast-links t) |
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_new.lsp") (gbc t) |
(load #"../lsp/auto_new.lsp") (gbc t) |