1 |
(proclaim '(optimize (safety 2) (space 3))) |
;(proclaim '(optimize (safety 2) (space 3))) |
2 |
|
|
3 |
(setq compiler::*eval-when-defaults* '(compile eval load)) |
(setq compiler::*eval-when-defaults* '(compile eval load)) |
4 |
(or (fboundp 'si::get-&environment) (load "defmacro.lsp")) |
;(or (fboundp 'si::get-&environment) (load "defmacro.lsp")) |
5 |
;(or (get 'si::s-data 'si::s-data) |
;(or (get 'si::s-data 'si::s-data) |
6 |
; (progn (load "../lsp/setf.lsp") (load "../lsp/defstruct.lsp"))) |
; (progn (load "../lsp/setf.lsp") (load "../lsp/defstruct.lsp"))) |
7 |
(if (probe-file "sys-proclaim.lisp")(load "sys-proclaim.lisp")) |
(if (probe-file "sys-proclaim.lisp")(load "sys-proclaim.lisp")) |