/[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.2 - (show annotations) (vendor branch)
Fri Jul 13 14:55:57 1990 UTC (23 years, 9 months ago) by ram
Changes since 1.1.1.1: +10 -5 lines
*** empty log message ***
1 ;;;
2 ;;; This file compiles all of Hemlock.
3 ;;;
4
5 (c::%proclaim '(optimize (debug-info 2)))
6 #|
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
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 (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
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 (in-package "C")
37 (export 'compile-from-stream)
38
39 (in-package "HI")
40
41 ;;; ### bootstrap hack...
42 (defmacro parse-forms ((decls-var forms-var forms) &body gorms)
43 "Parse-Forms (Decls-Var Forms-Var Forms) {Form}*
44 Binds Decls-Var to leading declarations off of Forms and Forms-Var
45 to what is left."
46 `(do ((,forms-var ,forms (cdr ,forms-var))
47 (,decls-var ()))
48 ((or (atom ,forms-var) (atom (car ,forms-var))
49 (not (eq (caar ,forms-var) 'declare)))
50 ,@gorms)
51 (push (car ,forms-var) ,decls-var)))
52
53 (in-package "USER")
54
55
56 (pushnew :command-bits *features*)
57 (pushnew :buffered-lines *features*)
58
59
60 (with-compiler-log-file ("hem:lossage.log")
61
62 (comf "code:globals" :always-once t)
63 (comf "code:struct" :always-once t)
64 (comf "hem:struct" :always-once t)
65 (comf "hem:struct-ed" :always-once t)
66 (comf "hem:rompsite" :always-once t)
67 (comf "hem:charmacs" :always-once t)
68 ;; keytran and keytrandefs used to be in rompsite, but they are too big now.
69 ;; They also need to go after charmacs due to the funny characters named.
70 ;(comf "hem:keytran")
71 ;(comf "hem:keytrandefs")
72 (comf "hem:macros" :always-once t)
73 (comf "hem:line" :always-once t)
74 (comf "hem:ring")
75 (comf "hem:table")
76 (comf "hem:htext1")
77 (comf "hem:htext2")
78 (comf "hem:htext3")
79 (comf "hem:htext4")
80 (comf "hem:search1")
81 (comf "hem:search2")
82 (comf "hem:linimage")
83 (comf "hem:cursor")
84 (comf "hem:syntax")
85 (comf "hem:winimage")
86 ;(comf "hem:hunk-draw")
87 ;(comf "hem:bit-stream")
88 (comf "hem:termcap")
89 (comf "hem:display")
90 ;(comf "hem:bit-display")
91 (comf "hem:tty-disp-rt")
92 (comf "hem:tty-display")
93 ;(comf "hem:tty-stream")
94 (comf "hem:pop-up-stream")
95 (comf "hem:screen")
96 ;(comf "hem:bit-screen")
97 (comf "hem:tty-screen")
98 (comf "hem:window")
99 (comf "hem:font")
100 (comf "hem:interp")
101 (comf "hem:vars")
102 (comf "hem:buffer")
103 (comf "hem:files")
104 (comf "hem:streams")
105 (comf "hem:echo")
106 (comf "hem:main")
107 (comf "hem:echocoms")
108 (comf "hem:defsyn")
109 (comf "hem:command")
110 (comf "hem:morecoms")
111 (comf "hem:undo")
112 (comf "hem:killcoms")
113 (comf "hem:searchcoms")
114 (comf "hem:filecoms")
115 (comf "hem:indent")
116 (comf "hem:lispmode")
117 (comf "hem:comments")
118 (comf "hem:fill")
119 (comf "hem:text")
120 (comf "hem:doccoms")
121 (comf "hem:srccom")
122 (comf "hem:group")
123 (comf "hem:spell-rt")
124 (comf "hem:spell-corr")
125 (comf "hem:spell-aug")
126 (comf "hem:spell-build")
127 (comf "hem:spellcoms")
128 (comf "hem:abbrev")
129 (comf "hem:overwrite")
130 (comf "hem:gosmacs")
131 (comf "hem:ts-buf")
132 (comf "hem:ts-stream")
133 (comf "hem:eval-server")
134 (comf "hem:lispbuf")
135 (comf "hem:lispeval")
136 (comf "hem:kbdmac")
137 (comf "hem:icom")
138 (comf "hem:hi-integrity")
139 (comf "hem:ed-integrity")
140 (comf "hem:scribe")
141 (comf "hem:pascal")
142 (comf "hem:edit-defs")
143 (comf "hem:auto-save")
144 (comf "hem:register")
145 (comf "hem:xcoms")
146 (comf "hem:unixcoms")
147 (comf "hem:mh")
148 (comf "hem:highlight")
149 (comf "hem:dired")
150 (comf "hem:diredcoms")
151 (comf "hem:bufed")
152 (comf "hem:lisp-lib")
153 (comf "hem:completion")
154 (comf "hem:shell")
155 (comf "hem:bindings")
156 (comf "hem:hacks")
157
158 ); With-Compiler-Log-File

  ViewVC Help
Powered by ViewVC 1.1.5