projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.8.13:
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
f50db9e
..
3f24bb5
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; burning our ships behind us
\f
;;;; burning our ships behind us
@@
-88,7
+85,7
@@
(/show0 "entering !COLD-INIT")
;; FIXME: It'd probably be cleaner to have most of the stuff here
(/show0 "entering !COLD-INIT")
;; FIXME: It'd probably be cleaner to have most of the stuff here
- ;; handled by calls a la !GC-COLD-INIT, !ERROR-COLD-INIT, and
+ ;; handled by calls like !GC-COLD-INIT, !ERROR-COLD-INIT, and
;; !UNIX-COLD-INIT. And *TYPE-SYSTEM-INITIALIZED* could be changed to
;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
;; be explicitly set in order to be meaningful.
;; !UNIX-COLD-INIT. And *TYPE-SYSTEM-INITIALIZED* could be changed to
;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
;; be explicitly set in order to be meaningful.
@@
-260,11
+257,8
@@
;; The show is on.
(terpri)
(/show0 "going into toplevel loop")
;; The show is on.
(terpri)
(/show0 "going into toplevel loop")
- (let ((wot (catch '%end-of-the-world
- (/show0 "inside CATCH '%END-OF-THE-WORLD")
- (toplevel))))
- (flush-standard-output-streams)
- (sb!unix:unix-exit wot)))
+ (handling-end-of-the-world
+ (toplevel-init)))
(defun quit (&key recklessly-p
(unix-code 0 unix-code-p)
(defun quit (&key recklessly-p
(unix-code 0 unix-code-p)
@@
-282,7
+276,7
@@
instead (which is another name for the same thing)."))
(if recklessly-p
(sb!unix:unix-exit unix-status)
instead (which is another name for the same thing)."))
(if recklessly-p
(sb!unix:unix-exit unix-status)
- (throw '%end-of-the-world unix-code)))
+ (throw '%end-of-the-world unix-status)))
\f
;;;; initialization functions
\f
;;;; initialization functions