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

Contents of /src/tools/hemcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11 - (hide annotations)
Wed Jun 18 09:23:08 2003 UTC (10 years, 10 months ago) by gerd
Branch: MAIN
Changes since 1.10: +2 -2 lines
	Remove package nicknames USER from COMMON-LISP-USER.  Add a new
	package COMMON-LISP which LISP uses, so that COMMON-LISP no longer
	has the non-ANSI nickname LISP.

	To bootstrap, use boot13.lisp as target:bootstrap.lisp with pmai's
	build scripts, and do a full compile.

	* src/bootfiles/18e/boot13.lisp: Change for all the package
	changes.

	* src/code/exports.lisp: New package common-lisp,
	which lisp uses.

	* src/tools/worldload.lisp:
	* src/tools/setup.lisp: Use cl-user instead of user.
	Use lisp:: instead of cl::.

	* src/tools/worldcom.lisp:
	* src/tools/snapshot-update.lisp:
	* src/tools/pclcom.lisp:
	* src/tools/mk-lisp:
	* src/tools/hemcom.lisp:
	* src/tools/config.lisp:
	* src/tools/comcom.lisp:
	* src/tools/clxcom.lisp:
	* src/tools/clmcom.lisp:
	* src/pcl/defsys.lisp:
	* src/motif/lisp/initial.lisp:
	* src/interface/initial.lisp:
	* src/hemlock/lispmode.lisp (setup-lisp-mode):
	Use cl-user instead of user.

	* src/code/save.lisp (assert-user-package):
	* src/code/print.lisp (%with-standard-io-syntax): Find
	cl-user package instead of user.

	* src/code/package.lisp (package-locks-init): Add lisp.
	(package-init): Don't add user nickname to cl-user.

	* src/code/ntrace.lisp (*trace-encapsulate-package-names*):
	Add common-lisp.

	* src/code/hash.lisp (toplevel):
	* src/code/hash-new.lisp (toplevel): Use in-package :lisp
	instead of :common-lisp.

	* src/code/float-trap.lisp (sigfpe-handler): Don't
	qualify floating-point-inexact with ext:.

	* src/pcl/simple-streams/strategy.lisp (sc):
	* src/pcl/simple-streams/null.lisp (null-read-char):
	* src/pcl/simple-streams/internal.lisp (allocate-buffer)
	(free-buffer):
	* src/pcl/simple-streams/impl.lisp (%check, %read-line)
	(%peek-char, %read-byte):
	* src/pcl/simple-streams/file.lisp (open-file-stream)
	(device-close):
	* src/pcl/simple-streams/classes.lisp (simple-stream)
	(device-close):
	* src/pcl/macros.lisp (toplevel):
	* src/pcl/braid.lisp (lisp::sxhash-instance):
	* src/pcl/env.lisp (toplevel):
	* src/compiler/generic/objdef.lisp (symbol-hash):
	* src/code/stream.lisp (read-sequence, write-sequence):
	* src/code/macros.lisp (defmacro, deftype):
	* src/code/eval.lisp (interpreted-function):
	* src/code/defstruct.lisp (defstruct):
	* src/code/debug.lisp (debug-eval-print): Use lisp:: instead
	of cl::.
1 dtc 1.9 ;;; -*- Package: USER -*-
2     ;;;
3     ;;; **********************************************************************
4     ;;;
5     (ext:file-comment
6 gerd 1.11 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/hemcom.lisp,v 1.11 2003/06/18 09:23:08 gerd Exp $")
7 dtc 1.9 ;;;
8     ;;; **********************************************************************
9 ram 1.1 ;;;
10     ;;; This file compiles all of Hemlock.
11     ;;;
12    
13 ram 1.3 #+bootstrap
14     (progn
15     (when (ext:get-command-line-switch "slave")
16     (error "Cannot compile Hemlock in a slave due to its clobbering needed
17     typescript routines by renaming the package."))
18    
19     ;;; Blast the old packages in case they are around. We do this solely to
20     ;;; prove Hemlock can compile cleanly without its having to exist already.
21     ;;;
22     (copy-packages '("ED" "HI")))
23 ram 1.1
24    
25 ram 1.3 ;;; Stuff to set up the packages Hemlock uses.
26 ram 1.1 ;;;
27 ram 1.3 (unless (find-package "HEMLOCK-INTERNALS")
28     (make-package "HEMLOCK-INTERNALS"
29     :nicknames '("HI")
30     :use '("LISP" "EXTENSIONS" "SYSTEM")))
31    
32     (unless (find-package "HEMLOCK")
33     (make-package "HEMLOCK"
34     :nicknames '("ED")
35     :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM")))
36 ram 1.1 ;;;
37 ram 1.3 (export 'c::compile-from-stream (find-package "C"))
38 ram 1.1
39    
40 gerd 1.11 (in-package "CL-USER")
41 ram 1.1
42 ram 1.3 (defvar *byte-compile* #+small t #-small :maybe)
43 ram 1.1
44     (pushnew :command-bits *features*)
45     (pushnew :buffered-lines *features*)
46    
47 ram 1.3 #-clx
48     ;;; If CLX has not been loaded, but has been compiled, then load it.
49     ;;;
50     (when (probe-file (make-pathname :defaults "target:clx/clx-library"
51     :type (c:backend-fasl-file-type c:*backend*)))
52 ram 1.5 #+(and (not pcl) (not no-pcl-clx))
53     (load "target:pcl/pclload")
54 ram 1.6 (load "target:clx/clx-library")
55 dtc 1.8 #+gencgc (gc :full t)
56     #-gencgc (ext:purify))
57 ram 1.3
58     (with-compiler-log-file
59     ("target:compile-hemlock.log"
60     :optimize
61     '(optimize (debug #-small 2 #+small .5)
62     (speed 2) (inhibit-warnings 2)
63     (safety #-small 1 #+small 0))
64     :optimize-interface
65     '(optimize-interface (debug .5))
66     :context-declarations
67     '(((:or :external (:match "$%SET-"))
68     (declare (optimize (safety 2))
69     (optimize-interface (debug 1))))
70     (:macro (declare (optimize (speed 0))))))
71 ram 1.1
72 ram 1.3 (comf "target:code/globals")
73     (comf "target:code/struct")
74     (comf "target:hemlock/charmacs")
75     (comf "target:hemlock/key-event" :load t)
76     (comf "target:hemlock/struct")
77     ;(comf "target:hemlock/struct-ed")
78     (comf "target:hemlock/rompsite")
79 ram 1.2 ;;;
80     ;;; This is necessary since all the #k uses in Hemlock will expand into
81     ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
82     ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
83     ;;; respect to running code with #k's compiled for it, but it causes the
84     ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
85     ;;; for the new system.
86     ;;;
87     (ext::re-initialize-key-events)
88 ram 1.3 (comf "target:hemlock/keysym-defs")
89     (comf "target:hemlock/input")
90     (comf "target:hemlock/macros" :byte-compile t)
91     (comf "target:hemlock/line")
92     (comf "target:hemlock/ring")
93     (comf "target:hemlock/table")
94     (comf "target:hemlock/htext1")
95     (comf "target:hemlock/htext2")
96     (comf "target:hemlock/htext3")
97     (comf "target:hemlock/htext4")
98     (comf "target:hemlock/search1")
99     (comf "target:hemlock/search2")
100     (comf "target:hemlock/linimage")
101     (comf "target:hemlock/cursor")
102     (comf "target:hemlock/syntax")
103     (comf "target:hemlock/winimage")
104     #+clx (comf "target:hemlock/hunk-draw")
105     ;(comf "target:hemlock/bit-stream")
106     (comf "target:hemlock/termcap")
107     (comf "target:hemlock/display")
108     #+clx (comf "target:hemlock/bit-display")
109     (comf "target:hemlock/tty-disp-rt")
110     (with-compilation-unit (:optimize '(optimize (safety 2) (debug 3)))
111     (comf "target:hemlock/tty-display")) ; Buggy...
112     ;(comf "target:hemlock/tty-stream")
113     (comf "target:hemlock/pop-up-stream")
114     (comf "target:hemlock/screen")
115     #+clx (comf "target:hemlock/bit-screen")
116     (comf "target:hemlock/tty-screen")
117     (comf "target:hemlock/window")
118     (comf "target:hemlock/font")
119     (comf "target:hemlock/interp")
120     (comf "target:hemlock/vars")
121     (comf "target:hemlock/buffer")
122     (comf "target:hemlock/files")
123     (comf "target:hemlock/streams")
124     (comf "target:hemlock/echo" :byte-compile t)
125     (comf "target:hemlock/main" :byte-compile t)
126     (comf "target:hemlock/echocoms" :byte-compile t)
127     (comf "target:hemlock/defsyn")
128 ram 1.2
129 ram 1.3 (comf "target:hemlock/ts-buf")
130     (comf "target:hemlock/ts-stream")
131    
132     (with-compilation-unit
133     (:optimize
134     '(optimize (safety 2) (speed 0))
135     :context-declarations
136     '(((:match "-COMMAND$")
137     (declare (optimize (safety #+small 0 #-small 1))
138     (optimize-interface (safety 2))))))
139    
140     (comf "target:hemlock/command" :byte-compile t)
141     (comf "target:hemlock/morecoms" :byte-compile t)
142     (comf "target:hemlock/undo" :byte-compile t)
143     (comf "target:hemlock/killcoms" :byte-compile t)
144     (comf "target:hemlock/searchcoms" :byte-compile t)
145     (comf "target:hemlock/filecoms" :byte-compile t)
146     (comf "target:hemlock/indent" :byte-compile t)
147     (comf "target:hemlock/lispmode")
148     (comf "target:hemlock/comments" :byte-compile t)
149     (comf "target:hemlock/fill")
150     (comf "target:hemlock/text" :byte-compile t)
151     (comf "target:hemlock/doccoms" :byte-compile t)
152     (comf "target:hemlock/srccom" :byte-compile t)
153     (comf "target:hemlock/abbrev" :byte-compile t)
154     (comf "target:hemlock/group" :byte-compile t)
155     (comf "target:hemlock/overwrite" :byte-compile t)
156     (comf "target:hemlock/gosmacs" :byte-compile t)
157     (comf "target:hemlock/eval-server" :byte-compile t)
158     (comf "target:hemlock/dylan" :byte-compile t)
159     (comf "target:hemlock/lispbuf" :byte-compile t)
160     (comf "target:hemlock/lispeval" :byte-compile t)
161     (comf "target:hemlock/icom" :byte-compile t)
162     (comf "target:hemlock/hi-integrity" :byte-compile t)
163     (comf "target:hemlock/ed-integrity" :byte-compile t)
164     (comf "target:hemlock/scribe" :byte-compile t)
165     (comf "target:hemlock/pascal" :byte-compile t)
166     (comf "target:hemlock/edit-defs" :byte-compile t)
167     (comf "target:hemlock/auto-save" :byte-compile t)
168     (comf "target:hemlock/register" :byte-compile t)
169     (comf "target:hemlock/xcoms" :byte-compile t)
170     (comf "target:hemlock/unixcoms" :byte-compile t)
171     (comf "target:hemlock/mh")
172     (comf "target:hemlock/highlight" :byte-compile t)
173     (comf "target:hemlock/dired" :byte-compile t)
174     (comf "target:hemlock/diredcoms" :byte-compile t)
175     (comf "target:hemlock/bufed" :byte-compile t)
176     (comf "target:hemlock/lisp-lib" :byte-compile t)
177     (comf "target:hemlock/completion" :byte-compile t)
178     (comf "target:hemlock/shell" :byte-compile t)
179     (comf "target:hemlock/debug" :byte-compile t)
180     (comf "target:hemlock/netnews" :byte-compile t)
181     (comf "target:hemlock/rcs" :byte-compile t)
182 emarsden 1.10 (comf "target:hemlock/dabbrev" :byte-compile t)
183 ram 1.3
184     ) ;WITH-COMPILATION-UNIT for commands
185    
186     ;; Stuff we want compiled native:
187    
188     (comf "target:hemlock/spell-rt")
189     (comf "target:hemlock/spell-corr")
190     (comf "target:hemlock/spell-aug")
191     (comf "target:hemlock/spell-build")
192     (comf "target:hemlock/spellcoms")
193     (comf "target:hemlock/kbdmac")
194    
195     (comf "target:hemlock/bindings")
196     (comf "target:hemlock/hacks")
197    
198     ) ;WITH-COMPILER-LOG-FILE
199    
200 ram 1.7 (unless (probe-file "target:hemlock/spell-dictionary.bin")
201     (load "target:hemlock/spell-rt")
202     (load "target:hemlock/spell-corr")
203     (load "target:hemlock/spell-aug")
204     (load "target:hemlock/spell-build")
205     (funcall (fdefinition (intern "BUILD-DICTIONARY" "SPELL"))
206     "target:hemlock/spell-dictionary.text"
207     "target:hemlock/spell-dictionary.bin"))
208 ram 1.3
209     (cat-if-anything-changed
210     "target:hemlock/hemlock-library"
211     "target:hemlock/rompsite"
212     "target:hemlock/struct"
213     ; "target:hemlock/struct-ed"
214     "target:hemlock/charmacs"
215     "target:hemlock/input"
216     "target:hemlock/line"
217     "target:hemlock/ring"
218     "target:hemlock/vars"
219     "target:hemlock/buffer"
220     "target:hemlock/macros"
221     "target:hemlock/interp"
222     "target:hemlock/syntax"
223     "target:hemlock/htext1"
224     "target:hemlock/htext2"
225     "target:hemlock/htext3"
226     "target:hemlock/htext4"
227     "target:hemlock/files"
228     "target:hemlock/search1"
229     "target:hemlock/search2"
230     "target:hemlock/table"
231     #+clx "target:hemlock/hunk-draw"
232     "target:hemlock/window"
233     "target:hemlock/screen"
234     "target:hemlock/winimage"
235     "target:hemlock/linimage"
236     "target:hemlock/display"
237     "target:hemlock/termcap"
238     #+clx "target:hemlock/bit-display"
239     "target:hemlock/tty-disp-rt"
240     "target:hemlock/tty-display"
241     "target:hemlock/pop-up-stream"
242     #+clx "target:hemlock/bit-screen"
243     "target:hemlock/tty-screen"
244     "target:hemlock/cursor"
245     "target:hemlock/font"
246     "target:hemlock/streams"
247     "target:hemlock/hacks"
248     "target:hemlock/main"
249     "target:hemlock/echo"
250     "target:hemlock/echocoms"
251     "target:hemlock/command"
252     "target:hemlock/indent"
253     "target:hemlock/comments"
254     "target:hemlock/morecoms"
255     "target:hemlock/undo"
256     "target:hemlock/killcoms"
257     "target:hemlock/searchcoms"
258     "target:hemlock/filecoms"
259     "target:hemlock/doccoms"
260     "target:hemlock/srccom"
261     "target:hemlock/group"
262     "target:hemlock/fill"
263     "target:hemlock/text"
264     "target:hemlock/lispmode"
265     "target:hemlock/ts-buf"
266     "target:hemlock/ts-stream"
267     "target:hemlock/eval-server"
268     "target:hemlock/lispbuf"
269     "target:hemlock/lispeval"
270     "target:hemlock/spell-rt"
271     "target:hemlock/spell-corr"
272     "target:hemlock/spell-aug"
273     "target:hemlock/spellcoms"
274     "target:hemlock/overwrite"
275     "target:hemlock/abbrev"
276     "target:hemlock/icom"
277     "target:hemlock/kbdmac"
278     "target:hemlock/defsyn"
279     "target:hemlock/scribe"
280     "target:hemlock/pascal"
281 ram 1.4 "target:hemlock/dylan"
282 ram 1.3 "target:hemlock/edit-defs"
283     "target:hemlock/auto-save"
284     "target:hemlock/register"
285     "target:hemlock/xcoms"
286     "target:hemlock/unixcoms"
287     "target:hemlock/mh"
288     "target:hemlock/highlight"
289     "target:hemlock/dired"
290     "target:hemlock/diredcoms"
291     "target:hemlock/bufed"
292     "target:hemlock/lisp-lib"
293     "target:hemlock/completion"
294     "target:hemlock/shell"
295     "target:hemlock/debug"
296     "target:hemlock/netnews"
297     "target:hemlock/rcs"
298 emarsden 1.10 "target:hemlock/dabbrev"
299 ram 1.3 "target:hemlock/bindings")

  ViewVC Help
Powered by ViewVC 1.1.5