/[cmucl]/src/tools/hemcom.lisp
ViewVC logotype

Contents of /src/tools/hemcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.17 - (hide annotations) (vendor branch)
Thu Sep 26 13:30:02 1991 UTC (22 years, 6 months ago) by wlott
Changes since 1.1.1.16: +1 -1 lines
Load key-event if we compile it so that the RE-INITIALIZE-KEY-EVENTS uses
the new code.
1 ram 1.1.1.9 ;;;
2 ram 1.1 ;;; This file compiles all of Hemlock.
3     ;;;
4    
5 ram 1.1.1.12 #+bootstrap
6     (progn
7     (when (ext:get-command-line-switch "slave")
8     (error "Cannot compile Hemlock in a slave due to its clobbering needed
9     typescript routines by renaming the package."))
10    
11     ;;; Blast the old packages in case they are around. We do this solely to
12     ;;; prove Hemlock can compile cleanly without its having to exist already.
13     ;;;
14     (copy-packages '("ED" "HI")))
15 ram 1.1
16    
17     ;;; Stuff to set up the packages Hemlock uses.
18     ;;;
19     (in-package "HEMLOCK-INTERNALS"
20     :nicknames '("HI")
21     :use '("LISP" "EXTENSIONS" "SYSTEM"))
22 ram 1.1.1.4
23 ram 1.1 ;;;
24     (in-package "HEMLOCK"
25     :nicknames '("ED")
26     :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
27     ;;;
28 wlott 1.1.1.7 (export 'c::compile-from-stream (find-package "C"))
29 ram 1.1.1.2
30 ram 1.1.1.4
31 ram 1.1.1.1 (in-package "USER")
32    
33 ram 1.1 (pushnew :command-bits *features*)
34     (pushnew :buffered-lines *features*)
35    
36 chiles 1.1.1.16
37 ram 1.1.1.12 (with-compiler-log-file
38     ("target:compile-hemlock.log"
39     :optimize
40 ram 1.1.1.14 '(optimize (debug-info #-small 2 #+small .5)
41 ram 1.1.1.12 (speed 2) (inhibit-warnings 2)
42     (safety #-small 1 #+small 0))
43     :optimize-interface
44 ram 1.1.1.14 '(optimize-interface (debug-info .5))
45 ram 1.1.1.12 :context-declarations
46 ram 1.1.1.13 '(((:or :external (:match "$%SET-"))
47 ram 1.1.1.14 (declare (optimize (safety 2))
48     (optimize-interface (debug-info 1))))))
49 ram 1.1
50 ram 1.1.1.10 (comf "target:code/globals")
51     (comf "target:code/struct")
52     (comf "target:hemlock/charmacs")
53 wlott 1.1.1.17 (comf "target:hemlock/key-event" :load t)
54 ram 1.1.1.10 (comf "target:hemlock/struct")
55     ;(comf "target:hemlock/struct-ed")
56     (comf "target:hemlock/rompsite")
57 ram 1.1.1.3 ;;;
58     ;;; This is necessary since all the #k uses in Hemlock will expand into
59     ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
60     ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
61     ;;; respect to running code with #k's compiled for it, but it causes the
62     ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
63     ;;; for the new system.
64     ;;;
65     (ext::re-initialize-key-events)
66 ram 1.1.1.10 (comf "target:hemlock/keysym-defs")
67 wlott 1.1.1.6 (comf "target:hemlock/input")
68 ram 1.1.1.10 (comf "target:hemlock/macros")
69     (comf "target:hemlock/line")
70 wlott 1.1.1.6 (comf "target:hemlock/ring")
71     (comf "target:hemlock/table")
72     (comf "target:hemlock/htext1")
73     (comf "target:hemlock/htext2")
74     (comf "target:hemlock/htext3")
75     (comf "target:hemlock/htext4")
76     (comf "target:hemlock/search1")
77     (comf "target:hemlock/search2")
78     (comf "target:hemlock/linimage")
79     (comf "target:hemlock/cursor")
80     (comf "target:hemlock/syntax")
81     (comf "target:hemlock/winimage")
82     #+clx (comf "target:hemlock/hunk-draw")
83     ;(comf "target:hemlock/bit-stream")
84     (comf "target:hemlock/termcap")
85     (comf "target:hemlock/display")
86     #+clx (comf "target:hemlock/bit-display")
87     (comf "target:hemlock/tty-disp-rt")
88 ram 1.1.1.13 (with-compilation-unit (:optimize '(optimize (safety 2) (debug-info 3)))
89     (comf "target:hemlock/tty-display")) ; Buggy...
90 wlott 1.1.1.6 ;(comf "target:hemlock/tty-stream")
91     (comf "target:hemlock/pop-up-stream")
92     (comf "target:hemlock/screen")
93     #+clx (comf "target:hemlock/bit-screen")
94     (comf "target:hemlock/tty-screen")
95     (comf "target:hemlock/window")
96     (comf "target:hemlock/font")
97     (comf "target:hemlock/interp")
98     (comf "target:hemlock/vars")
99     (comf "target:hemlock/buffer")
100     (comf "target:hemlock/files")
101     (comf "target:hemlock/streams")
102     (comf "target:hemlock/echo")
103     (comf "target:hemlock/main")
104     (comf "target:hemlock/echocoms")
105     (comf "target:hemlock/defsyn")
106 ram 1.1.1.12
107 chiles 1.1.1.16
108 ram 1.1.1.12 (with-compilation-unit
109     (:optimize
110     '(optimize (safety 2))
111     :context-declarations
112     '(((:match "-COMMAND$")
113     (declare (optimize (safety #+small 0 #-small 1))
114     (optimize-interface (safety 2))))))
115    
116 wlott 1.1.1.6 (comf "target:hemlock/command")
117     (comf "target:hemlock/morecoms")
118     (comf "target:hemlock/undo")
119     (comf "target:hemlock/killcoms")
120     (comf "target:hemlock/searchcoms")
121     (comf "target:hemlock/filecoms")
122     (comf "target:hemlock/indent")
123     (comf "target:hemlock/lispmode")
124     (comf "target:hemlock/comments")
125     (comf "target:hemlock/fill")
126     (comf "target:hemlock/text")
127     (comf "target:hemlock/doccoms")
128     (comf "target:hemlock/srccom")
129     (comf "target:hemlock/group")
130     (comf "target:hemlock/spell-rt")
131     (comf "target:hemlock/spell-corr")
132     (comf "target:hemlock/spell-aug")
133     (comf "target:hemlock/spell-build")
134     (comf "target:hemlock/spellcoms")
135     (comf "target:hemlock/abbrev")
136     (comf "target:hemlock/overwrite")
137     (comf "target:hemlock/gosmacs")
138     (comf "target:hemlock/ts-buf")
139     (comf "target:hemlock/ts-stream")
140     (comf "target:hemlock/eval-server")
141     (comf "target:hemlock/lispbuf")
142     (comf "target:hemlock/lispeval")
143     (comf "target:hemlock/kbdmac")
144     (comf "target:hemlock/icom")
145     (comf "target:hemlock/hi-integrity")
146     (comf "target:hemlock/ed-integrity")
147     (comf "target:hemlock/scribe")
148     (comf "target:hemlock/pascal")
149     (comf "target:hemlock/edit-defs")
150     (comf "target:hemlock/auto-save")
151     (comf "target:hemlock/register")
152     (comf "target:hemlock/xcoms")
153     (comf "target:hemlock/unixcoms")
154     (comf "target:hemlock/mh")
155     (comf "target:hemlock/highlight")
156     (comf "target:hemlock/dired")
157     (comf "target:hemlock/diredcoms")
158     (comf "target:hemlock/bufed")
159     (comf "target:hemlock/lisp-lib")
160     (comf "target:hemlock/completion")
161     (comf "target:hemlock/shell")
162 chiles 1.1.1.15 (comf "target:hemlock/debug")
163 chiles 1.1.1.16 (comf "target:hemlock/netnews")
164 ram 1.1.1.12
165 chiles 1.1.1.16 ) ;WITH-COMPILATION-UNIT for commands
166    
167    
168 wlott 1.1.1.6 (comf "target:hemlock/bindings")
169     (comf "target:hemlock/hacks")
170 ram 1.1.1.1
171 chiles 1.1.1.16 ) ;WITH-COMPILER-LOG-FILE

  ViewVC Help
Powered by ViewVC 1.1.5