/[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.7 - (hide annotations) (vendor branch)
Fri Oct 12 04:02:45 1990 UTC (23 years, 6 months ago) by wlott
Changes since 1.1.1.6: +1 -6 lines
Removed the stuff to unintern symbols with key-event in them from the hi
package, 'cause it is no longer needed.
1 ram 1.1 ;;;
2     ;;; This file compiles all of Hemlock.
3     ;;;
4    
5 wlott 1.1.1.6 (c::%proclaim '(optimize (speed 1) (safety 1) (c::brevity 1) (debug-info 2)))
6 ram 1.1.1.1 #|
7 ram 1.1 (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    
12     ;;; Blast the old packages in case they are around. We do this solely to
13     ;;; prove Hemlock can compile cleanly without its having to exist already.
14     ;;;
15 ram 1.1.1.1 (unless (find-package "OLD-ED")
16     (when (find-package "ED")
17     (rename-package (find-package "ED") "OLD-ED"))
18     (when (find-package "HI")
19     (rename-package (find-package "HI") "OLD-HI")))
20     |#
21 ram 1.1
22     ;;; Stuff to set up the packages Hemlock uses.
23     ;;;
24     (in-package "HEMLOCK-INTERNALS"
25     :nicknames '("HI")
26     :use '("LISP" "EXTENSIONS" "SYSTEM"))
27 ram 1.1.1.4
28 ram 1.1 ;;;
29     (in-package "HEMLOCK"
30     :nicknames '("ED")
31     :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
32     ;;;
33 wlott 1.1.1.7 (export 'c::compile-from-stream (find-package "C"))
34 ram 1.1.1.2
35 ram 1.1.1.4
36 ram 1.1.1.1 (in-package "USER")
37    
38 ram 1.1 (pushnew :command-bits *features*)
39     (pushnew :buffered-lines *features*)
40    
41 wlott 1.1.1.6 (with-compiler-log-file ("target:compile-hemlock.log")
42 ram 1.1
43 wlott 1.1.1.6 (comf "target:code/globals" :always-once t)
44     (comf "target:code/struct" :always-once t)
45     (comf "target:hemlock/charmacs" :always-once t)
46     (comf "target:hemlock/key-event" :load t)
47     (comf "target:hemlock/struct" :always-once t)
48     (comf "target:hemlock/struct-ed" :always-once t)
49     (comf "target:hemlock/rompsite" :always-once t)
50 ram 1.1.1.3 ;;;
51     ;;; This is necessary since all the #k uses in Hemlock will expand into
52     ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
53     ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
54     ;;; respect to running code with #k's compiled for it, but it causes the
55     ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
56     ;;; for the new system.
57     ;;;
58     (ext::re-initialize-key-events)
59 wlott 1.1.1.6 (comf "target:hemlock/keysym-defs" :load t)
60     (comf "target:hemlock/input")
61     (comf "target:hemlock/macros" :always-once t)
62     (comf "target:hemlock/line" :always-once t)
63     (comf "target:hemlock/ring")
64     (comf "target:hemlock/table")
65     (comf "target:hemlock/htext1")
66     (comf "target:hemlock/htext2")
67     (comf "target:hemlock/htext3")
68     (comf "target:hemlock/htext4")
69     (comf "target:hemlock/search1")
70     (comf "target:hemlock/search2")
71     (comf "target:hemlock/linimage")
72     (comf "target:hemlock/cursor")
73     (comf "target:hemlock/syntax")
74     (comf "target:hemlock/winimage")
75     #+clx (comf "target:hemlock/hunk-draw")
76     ;(comf "target:hemlock/bit-stream")
77     (comf "target:hemlock/termcap")
78     (comf "target:hemlock/display")
79     #+clx (comf "target:hemlock/bit-display")
80     (comf "target:hemlock/tty-disp-rt")
81     (comf "target:hemlock/tty-display")
82     ;(comf "target:hemlock/tty-stream")
83     (comf "target:hemlock/pop-up-stream")
84     (comf "target:hemlock/screen")
85     #+clx (comf "target:hemlock/bit-screen")
86     (comf "target:hemlock/tty-screen")
87     (comf "target:hemlock/window")
88     (comf "target:hemlock/font")
89     (comf "target:hemlock/interp")
90     (comf "target:hemlock/vars")
91     (comf "target:hemlock/buffer")
92     (comf "target:hemlock/files")
93     (comf "target:hemlock/streams")
94     (comf "target:hemlock/echo")
95     (comf "target:hemlock/main")
96     (comf "target:hemlock/echocoms")
97     (comf "target:hemlock/defsyn")
98     (comf "target:hemlock/command")
99     (comf "target:hemlock/morecoms")
100     (comf "target:hemlock/undo")
101     (comf "target:hemlock/killcoms")
102     (comf "target:hemlock/searchcoms")
103     (comf "target:hemlock/filecoms")
104     (comf "target:hemlock/indent")
105     (comf "target:hemlock/lispmode")
106     (comf "target:hemlock/comments")
107     (comf "target:hemlock/fill")
108     (comf "target:hemlock/text")
109     (comf "target:hemlock/doccoms")
110     (comf "target:hemlock/srccom")
111     (comf "target:hemlock/group")
112     (comf "target:hemlock/spell-rt")
113     (comf "target:hemlock/spell-corr")
114     (comf "target:hemlock/spell-aug")
115     (comf "target:hemlock/spell-build")
116     (comf "target:hemlock/spellcoms")
117     (comf "target:hemlock/abbrev")
118     (comf "target:hemlock/overwrite")
119     (comf "target:hemlock/gosmacs")
120     (comf "target:hemlock/ts-buf")
121     (comf "target:hemlock/ts-stream")
122     (comf "target:hemlock/eval-server")
123     (comf "target:hemlock/lispbuf")
124     (comf "target:hemlock/lispeval")
125     (comf "target:hemlock/kbdmac")
126     (comf "target:hemlock/icom")
127     (comf "target:hemlock/hi-integrity")
128     (comf "target:hemlock/ed-integrity")
129     (comf "target:hemlock/scribe")
130     (comf "target:hemlock/pascal")
131     (comf "target:hemlock/edit-defs")
132     (comf "target:hemlock/auto-save")
133     (comf "target:hemlock/register")
134     (comf "target:hemlock/xcoms")
135     (comf "target:hemlock/unixcoms")
136     (comf "target:hemlock/mh")
137     (comf "target:hemlock/highlight")
138     (comf "target:hemlock/dired")
139     (comf "target:hemlock/diredcoms")
140     (comf "target:hemlock/bufed")
141     (comf "target:hemlock/lisp-lib")
142     (comf "target:hemlock/completion")
143     (comf "target:hemlock/shell")
144     (comf "target:hemlock/bindings")
145     (comf "target:hemlock/hacks")
146 ram 1.1.1.1
147     ); With-Compiler-Log-File

  ViewVC Help
Powered by ViewVC 1.1.5