blob: cf964c4b5bea63a7f8f32e0dbb8da403f5f45883 (
plain)
1
2
3
4
5
6
7
|
(compiler::emit-fn t)
(compiler::link nil "bootstrapped_ansi_gcl"
(format nil "(progn (let ((*load-path* (cons ~S *load-path*))
(si::*load-types* ~S)) (compiler::emit-fn t)) (when (fboundp (quote
si::sgc-on)) (si::sgc-on t)) (setq compiler::*default-system-p* t))"
si::*system-directory* (quote (list ".lsp")))
"-lutil")
|
