projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER
[sbcl.git]
/
src
/
cold
/
warm.lisp
diff --git
a/src/cold/warm.lisp
b/src/cold/warm.lisp
index
3aff541
..
6fd757b
100644
(file)
--- a/
src/cold/warm.lisp
+++ b/
src/cold/warm.lisp
@@
-59,6
+59,9
@@
(rename-package package
(package-name package)
(cons "SB-C-CALL" (package-nicknames package))))
(rename-package package
(package-name package)
(cons "SB-C-CALL" (package-nicknames package))))
+
+(let ((package (find-package "SB-SEQUENCE")))
+ (rename-package package (package-name package) (list "SEQUENCE")))
\f
;;;; compiling and loading more of the system
\f
;;;; compiling and loading more of the system
@@
-122,9
+125,9
@@
"SRC;PCL;DEFCLASS"
"SRC;PCL;DEFS"
"SRC;PCL;FNGEN"
"SRC;PCL;DEFCLASS"
"SRC;PCL;DEFS"
"SRC;PCL;FNGEN"
+ "SRC;PCL;WRAPPER"
"SRC;PCL;CACHE"
"SRC;PCL;DLISP"
"SRC;PCL;CACHE"
"SRC;PCL;DLISP"
- "SRC;PCL;DLISP2"
"SRC;PCL;BOOT"
"SRC;PCL;VECTOR"
"SRC;PCL;SLOTS-BOOT"
"SRC;PCL;BOOT"
"SRC;PCL;VECTOR"
"SRC;PCL;SLOTS-BOOT"
@@
-159,6
+162,9
@@
"SRC;PCL;GRAY-STREAMS-CLASS"
"SRC;PCL;GRAY-STREAMS"
"SRC;PCL;GRAY-STREAMS-CLASS"
"SRC;PCL;GRAY-STREAMS"
+ ;; CLOS-level support for User-extensible sequences.
+ "SRC;PCL;SEQUENCE"
+
;; other functionality not needed for cold init, moved
;; to warm init to reduce peak memory requirement in
;; cold init
;; other functionality not needed for cold init, moved
;; to warm init to reduce peak memory requirement in
;; cold init
@@
-187,7
+193,9
@@
(tagbody
retry-compile-file
(multiple-value-bind (output-truename warnings-p failure-p)
(tagbody
retry-compile-file
(multiple-value-bind (output-truename warnings-p failure-p)
- (compile-file fullname)
+ (if *compile-files-p*
+ (compile-file fullname)
+ (compile-file-pathname fullname))
(declare (ignore warnings-p))
(sb-int:/show "done compiling" fullname)
(cond ((not output-truename)
(declare (ignore warnings-p))
(sb-int:/show "done compiling" fullname)
(cond ((not output-truename)