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

  ViewVC Help
Powered by ViewVC 1.1.5