projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.6.9: micro-optimize portions of the reader
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
6bb7b33
..
1ce59d2
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-96,13
+96,14
@@
*gc-inhibit* t
*gc-pending* nil
#!+sb-thread *stop-for-gc-pending* #!+sb-thread nil
*gc-inhibit* t
*gc-pending* nil
#!+sb-thread *stop-for-gc-pending* #!+sb-thread nil
- sb!unix::*interrupts-enabled* t
- sb!unix::*interrupt-pending* nil
+ *interrupts-enabled* t
+ *interrupt-pending* nil
*break-on-signals* nil
*maximum-error-depth* 10
*current-error-depth* 0
*cold-init-complete-p* nil
*break-on-signals* nil
*maximum-error-depth* 10
*current-error-depth* 0
*cold-init-complete-p* nil
- *type-system-initialized* nil)
+ *type-system-initialized* nil
+ sb!vm:*alloc-signal* nil)
;; I'm not sure where eval is first called, so I put this first.
#!+sb-eval
;; I'm not sure where eval is first called, so I put this first.
#!+sb-eval
@@
-116,6
+117,9
@@
;; this to be initialized, so we initialize it right away.
(show-and-call !random-cold-init)
;; this to be initialized, so we initialize it right away.
(show-and-call !random-cold-init)
+ ;; Must be done before any non-opencoded array references are made.
+ (show-and-call !hairy-data-vector-reffer-init)
+
(show-and-call !character-database-cold-init)
(show-and-call !character-name-database-cold-init)
(show-and-call !character-database-cold-init)
(show-and-call !character-name-database-cold-init)