projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.9.17:
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
ad00f27
..
b6dd324
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-189,8
+189,8
@@
(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))
(/show0 "done with loop over cold toplevel forms and fixups")
(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))
(/show0 "done with loop over cold toplevel forms and fixups")
- ;; Set sane values again, so that the user sees sane values instead of
- ;; whatever is left over from the last DECLAIM/PROCLAIM.
+ ;; Set sane values again, so that the user sees sane values instead
+ ;; of whatever is left over from the last DECLAIM/PROCLAIM.
(show-and-call !policy-cold-init-or-resanify)
;; Only do this after toplevel forms have run, 'cause that's where
(show-and-call !policy-cold-init-or-resanify)
;; Only do this after toplevel forms have run, 'cause that's where
@@
-214,8
+214,8
@@
(show-and-call !class-finalize)
;; The reader and printer are initialized very late, so that they
(show-and-call !class-finalize)
;; The reader and printer are initialized very late, so that they
- ;; can even do hairy things like invoking the compiler as part of
- ;; their initialization.
+ ;; can do hairy things like invoking the compiler as part of their
+ ;; initialization.
(show-and-call !reader-cold-init)
(let ((*readtable* *standard-readtable*))
(show-and-call !sharpm-cold-init)
(show-and-call !reader-cold-init)
(let ((*readtable* *standard-readtable*))
(show-and-call !sharpm-cold-init)
@@
-237,10
+237,6
@@
(/show0 "done initializing")
(setf *cold-init-complete-p* t)
(/show0 "done initializing")
(setf *cold-init-complete-p* t)
- ;; Unintern no-longer-needed stuff before we GC.
- #!-sb-fluid
- (!unintern-init-only-stuff)
-
;; The system is finally ready for GC.
#!-gengc (setf *already-maybe-gcing* nil)
(/show0 "enabling GC")
;; The system is finally ready for GC.
#!-gengc (setf *already-maybe-gcing* nil)
(/show0 "enabling GC")