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

  ViewVC Help
Powered by ViewVC 1.1.5