1 |
(defun jamie-load-clcs (&optional (mode :compiled)) |
(defun jamie-load-clcs (&optional (mode :compiled)) |
2 |
(let ((files (list |
(let ((files (list |
3 |
;"package" |
;"package" |
4 |
"precom" |
"clcs_precom" |
5 |
"macros" |
"clcs_macros" |
6 |
"restart" |
"clcs_restart" |
7 |
"handler" |
"clcs_handler" |
8 |
"debugger" |
"clcs_debugger" |
9 |
"conditions" |
"clcs_conditions" |
10 |
"condition-definitions" |
"clcs_condition_definitions" |
11 |
"kcl-cond" |
"clcs_kcl_cond" |
12 |
"top-patches" |
"clcs_top_patches" |
13 |
"install"))) |
"clcs_install"))) |
14 |
; (load "package.lisp") |
; (load "package.lisp") |
15 |
(when (eql :compile mode) |
(when (eql :compile mode) |
16 |
; (load "package.lisp") |
; (load "package.lisp") |
17 |
(load "precom.lisp")) |
(load "clcs_precom.lisp")) |
18 |
(mapc #'(lambda (file) |
(mapc #'(lambda (file) |
19 |
(ecase mode |
(ecase mode |
20 |
(:interpreted (load (format nil "~A.lisp" file))) |
(:interpreted (load (format nil "~A.lisp" file))) |
21 |
(:compiled (load (format nil "~A.o" file))) |
(:compiled (load (format nil "~A.o" file))) |
22 |
(:compile (compile-file (format nil "~A.lisp" file))))) |
(:compile (compile-file (format nil "~A.lisp" file) :c-file t :h-file t :data-file t :system-p t)))) |
23 |
files))) |
files))) |
24 |
|
|
25 |
|
|