/[gcl]/gcl/lsp/gcl_loadcmp.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_loadcmp.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
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))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26