;;;; 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
+(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
"src/pcl/iterate"
"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/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 "src/code/run-program" ; not working as of 0.6.7
"src/code/foreign"
+ "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