1 |
|
(in-package 'compiler) |
2 |
|
|
3 |
|
|
4 |
|
(format t "~%Loading the whole compiler...") |
5 |
|
(let ((sysd (concatenate 'string si::*system-directory* "../cmpnew/"))) |
6 |
|
(load (merge-pathnames (concatenate 'string si::*system-directory* |
7 |
|
"../lsp/defstruct"))) |
8 |
|
(dolist (v '( |
9 |
|
|
10 |
|
"cmpinline" |
11 |
|
"cmputil" |
12 |
|
"cmptype" |
13 |
|
"cmpbind" |
14 |
|
"cmpblock" |
15 |
|
"cmpcall" |
16 |
|
"cmpcatch" |
17 |
|
"cmpenv" |
18 |
|
"cmpeval" |
19 |
|
"cmpflet" |
20 |
|
"cmpfun" |
21 |
|
"cmpif" |
22 |
|
"cmplabel" |
23 |
|
"cmplam" |
24 |
|
"cmplet" |
25 |
|
"cmploc" |
26 |
|
; "cmpmain" |
27 |
|
"cmpmap" |
28 |
|
"cmpmulti" |
29 |
|
"cmpspecial" |
30 |
|
"cmptag" |
31 |
|
"cmptop" |
32 |
|
"cmpvar" |
33 |
|
"cmpvs" |
34 |
|
"cmpwt" |
35 |
|
)) |
36 |
|
(load (merge-pathnames v sysd))) |
37 |
|
(load (merge-pathnames "cmpmain.lsp" sysd))) |
38 |
|
|
39 |
|
(defun compile-file |
40 |
|
(&rest system::args &aux (*print-pretty* nil) (*package* *package*)) |
41 |
|
(compiler::init-env) (apply 'compiler::compile-file1 system::args)) |
42 |
|
(defun compile (&rest system::args &aux (*print-pretty* nil)) |
43 |
|
(apply 'compiler::compile1 system::args)) |
44 |
|
(defun disassemble (&rest system::args &aux (*print-pretty* nil)) |
45 |
|
(apply 'compiler::disassemble1 system::args)) |
46 |
|
(setf (symbol-function 'si:clear-compiler-properties) |
47 |
|
(symbol-function 'compiler::compiler-clear-compiler-properties)) |