;; this to be initialized, so we initialize it right away.
(show-and-call !random-cold-init)
+ (show-and-call !character-database-cold-init)
+
+ (show-and-call !early-package-cold-init)
(show-and-call !package-cold-init)
;; All sorts of things need INFO and/or (SETF INFO).
(show-and-call stream-cold-init-or-reset)
(show-and-call !loader-cold-init)
+ (show-and-call !foreign-cold-init)
(show-and-call signal-cold-init-or-reinit)
+ (/show0 "enabling internal errors")
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
;; FIXME: This list of modes should be defined in one place and
(unix-code 0 unix-code-p)
(unix-status unix-code))
#!+sb-doc
- "Terminate the current Lisp. Things are cleaned up (with UNWIND-PROTECT
- and so forth) unless RECKLESSLY-P is non-NIL. On UNIX-like systems,
- UNIX-STATUS is used as the status code."
+ "Terminate the current Lisp. Things are cleaned up (with
+UNWIND-PROTECT and so forth) unless RECKLESSLY-P is non-NIL. On
+UNIX-like systems, UNIX-STATUS is used as the status code."
(declare (type (signed-byte 32) unix-status unix-code))
(/show0 "entering QUIT")
;; FIXME: UNIX-CODE was deprecated in sbcl-0.6.8, after having been
(set-floating-point-modes
:traps '(:overflow #!-netbsd :invalid :divide-by-zero))
(sb!thread::maybe-install-futex-functions)))
- (gc-on)
- (gc))
+ (foreign-reinit)
+ (gc-reinit)
+ (mapc #'funcall *init-hooks*))
\f
;;;; some support for any hapless wretches who end up debugging cold
;;;; init code
(defun hexstr (thing)
(/noshow0 "entering HEXSTR")
(let ((addr (get-lisp-obj-address thing))
- (str (make-string 10)))
+ (str (make-string 10 :element-type 'base-char)))
(/noshow0 "ADDR and STR calculated")
(setf (char str 0) #\0
(char str 1) #\x)