Commit 379c662e authored by wlott's avatar wlott
Browse files

Added a call to PROCLAIM-INIT, so that the *DEFAULT-COOKIE* and *DEFAULT-

INTERFACE-COOKIE* start up with known values instead of whatever the last
cold loaded file left them as.
parent b39fba71
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.28 1992/02/14 23:45:11 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.29 1992/02/18 02:03:49 wlott Exp $")
;;; **********************************************************************
......@@ -545,6 +545,9 @@
(setf (alien:extern-alien "internal_errors_enabled" alien:boolean) t)
(set-floating-point-modes :traps '(:overflow :underflow :invalid
;; This is necessary because some of the initial top level forms might
;; have changed the compliation policy in strange ways.
(print-and-call c::proclaim-init)
(%primitive print "Done initializing.")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment