(in-package 'compiler) (format t "~%Loading the whole compiler...") (let ((sysd (concatenate 'string si::*system-directory* "../cmpnew/"))) (load (merge-pathnames (concatenate 'string si::*system-directory* "../lsp/defstruct"))) (dolist (v '( "cmpinline" "cmputil" "cmptype" "cmpbind" "cmpblock" "cmpcall" "cmpcatch" "cmpenv" "cmpeval" "cmpflet" "cmpfun" "cmpif" "cmplabel" "cmplam" "cmplet" "cmploc" ; "cmpmain" "cmpmap" "cmpmulti" "cmpspecial" "cmptag" "cmptop" "cmpvar" "cmpvs" "cmpwt" )) (load (merge-pathnames v sysd))) (load (merge-pathnames "cmpmain.lsp" sysd))) (defun compile-file (&rest system::args &aux (*print-pretty* nil) (*package* *package*)) (compiler::init-env) (apply 'compiler::compile-file1 system::args)) (defun compile (&rest system::args &aux (*print-pretty* nil)) (apply 'compiler::compile1 system::args)) (defun disassemble (&rest system::args &aux (*print-pretty* nil)) (apply 'compiler::disassemble1 system::args)) (setf (symbol-function 'si:clear-compiler-properties) (symbol-function 'compiler::compiler-clear-compiler-properties))