;;;; files for more information.
(in-package "COMMON-LISP-USER")
-
-;;;; $Header$
\f
;;;; general warm init compilation policy
;;;; do belong in cold load and will hopefully make it back there reasonably
;;;; soon). -- WHN 19991207
-(dolist (stem '(;; FIXME: The files here from outside the src/pcl/ directory
- ;; probably belong in cold load instead of warm load. They
- ;; ended up here as a quick hack to work around the
- ;; consequences of my misunderstanding how ASSEMBLE-FILE works
- ;; when I wrote the cold build code. The cold build code
- ;; expects only one FASL filename per source file, when it
- ;; turns out we really need one FASL file for ASSEMBLE-FILE
- ;; output and another for COMPILE-FILE output. It would
- ;; probably be good to redo the cold build code so that the
- ;; COMPILE-FILE stuff generated here can be loaded at the same
- ;; time as the ASSEMBLE-FILE stuff generated there.
+(dolist (stem '(;; FIXME: The assembly files here probably belong in
+ ;; cold load instead of warm load. They ended up here
+ ;; as a quick hack to work around the consequences of
+ ;; my misunderstanding how ASSEMBLE-FILE works when I
+ ;; wrote the cold build code. The cold build code
+ ;; expects only one FASL filename per source file,
+ ;; when it turns out we really need one FASL file for
+ ;; ASSEMBLE-FILE output and another for COMPILE-FILE
+ ;; output. It would probably be good to redo the cold
+ ;; build code so that the COMPILE-FILE stuff generated
+ ;; here can be loaded at the same time as the
+ ;; ASSEMBLE-FILE stuff generated there.
"src/assembly/target/assem-rtns"
"src/assembly/target/array"
"src/assembly/target/arith"
;; (Hopefully this will go away as we move the files above into cold load.)
;; -- WHN 19991214
(let ((fullname (concatenate 'string stem ".lisp")))
- (sb!int:/show "about to compile" fullname)
+ ;; (Now that we use byte compiler for interpretation, /SHOW
+ ;; doesn't get compiled properly until the src/assembly files have
+ ;; been loaded, so we use PRINT instead.)
+ #+sb-show (print "/about to compile src/assembly file")
+ #+sb-show (print fullname)
(multiple-value-bind
(compiled-truename compilation-warnings-p compilation-failure-p)
(compile-file fullname)
(declare (ignore compilation-warnings-p))
- (sb!int:/show "done compiling" fullname)
+ #+sb-show (print "/done compiling src/assembly file")
(if compilation-failure-p
(error "COMPILE-FILE of ~S failed." fullname)
(unless (load compiled-truename)
new-package-name
(package-nicknames package)))))))
+;;; FIXME: This nickname is a deprecated hack for backwards
+;;; compatibility with code which assumed the CMU-CL-style
+;;; SB-ALIEN/SB-C-CALL split. That split went away and was deprecated
+;;; in 0.7.0, so we should get rid of this nickname after a while.
+(let ((package (find-package "SB-ALIEN")))
+ (rename-package package
+ (package-name package)
+ (cons "SB-C-CALL" (package-nicknames package))))
+
;;; KLUDGE: This is created here (instead of in package-data-list.lisp-expr)
;;; because it doesn't have any symbols in it, so even if it's
;;; present at cold load time, genesis thinks it's unimportant
;;;
;;; FIXME: This has mutated into a hack which crudely duplicates
;;; functionality from the existing mechanism to load files from
-;;; stems-and-flags.lisp-expr, without being quite parallel. (E.g.
-;;; object files end up alongside the source files instead of ending
-;;; up in parallel directory trees.) Maybe we could merge the
-;;; filenames here into stems-and-flags.lisp-expr with some new flag
-;;; (perhaps :WARM) to indicate that the files should be handled not
-;;; in cold load but afterwards. Alternatively, we could call
-(dolist (stem '(
- ;; CLOS, derived from the PCL reference implementation
+;;; build-order.lisp-expr, without being quite parallel. (E.g. object
+;;; files end up alongside the source files instead of ending up in
+;;; parallel directory trees.) Maybe we could merge the filenames here
+;;; into build-order.lisp-expr with some new flag (perhaps :WARM) to
+;;; indicate that the files should be handled not in cold load but
+;;; afterwards.
+(dolist (stem '(;; CLOS, derived from the PCL reference implementation
;;
;; This PCL build order is based on a particular
;; linearization of the declared build order
;; dependencies from the old PCL defsys.lisp
;; dependency database.
"src/pcl/walk"
- "src/pcl/iterate"
+ ;; "src/pcl/iterate" removed 2001-12-20 njf
"src/pcl/early-low"
"src/pcl/macros"
+ "src/pcl/compiler-support"
"src/pcl/low"
- "src/pcl/fin"
+ ;; "src/pcl/fin" merged into "src/pcl/low" in 0.6.11.43
"src/pcl/defclass"
"src/pcl/defs"
"src/pcl/fngen"
"src/pcl/fixup"
"src/pcl/defcombin"
"src/pcl/ctypes"
- "src/pcl/construct"
"src/pcl/env"
"src/pcl/documentation"
"src/pcl/print-object"
"src/pcl/precom1"
"src/pcl/precom2"
- ;; functionality which depends on CLOS
+
+ ;; miscellaneous functionality which depends on CLOS
"src/code/force-delayed-defbangmethods"
+
+ ;; CLOS-level support for the Gray OO streams
+ ;; extension (which is also supported by various
+ ;; lower-level hooks elsewhere in the code)
+ "src/pcl/gray-streams-class"
+ "src/pcl/gray-streams"
+
;; other functionality not needed for cold init, moved
;; to warm init to reduce peak memory requirement in
;; cold init
- "src/code/describe" ; FIXME: should be byte compiled
- "src/code/inspect" ; FIXME: should be byte compiled
+ "src/code/describe"
+ "src/code/inspect"
"src/code/profile"
"src/code/ntrace"
- #+nil ; REMOVEME (for debugging 0.6.7.6 on OpenBSD only)
"src/code/foreign"
- #+nil ; REMOVEME (for debugging 0.6.7.6 on OpenBSD only)
"src/code/run-program"
+
;; Code derived from PCL's pre-ANSI DESCRIBE-OBJECT
;; facility is still used in our ANSI DESCRIBE
;; facility, and should be compiled and loaded after
;; our DESCRIBE facility is compiled and loaded.
- "src/pcl/describe" ; FIXME: should probably be byte compiled
- ;; FIXME: What about Gray streams? e.g. "gray-streams.lisp"
- ;; and "gray-streams-class.lisp"?
- ))
+ "src/pcl/describe"))
+
(let ((fullname (concatenate 'string stem ".lisp")))
(sb-int:/show "about to compile" fullname)
(multiple-value-bind
(safety 1)
(space 1)
(speed 1)))
-\f
-;;; FIXME: It would be good to unintern stuff we will no longer need
-;;; before we go on to PURIFY. E.g.
-;;; * various PCL stuff like INITIAL-CLASSES-AND-WRAPPERS; and
-;;; * *BUILT-IN-CLASSES* (which can't actually be freed by UNINTERN at
-;;; this point, since it passed through another PURIFY earlier
-;;; at cold init time).