X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=bc7d9f546632f4a8fef3d2fbd88d10d3a2536e4a;hb=dd357f3be290498fb7ef172696d986337f517a93;hp=06f78ba962735d4b7fb47a357cb62f8c5da27e31;hpb=9767de1cecfe50560fe1da69fd458b6148a66da3;p=sbcl.git diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index 06f78ba..bc7d9f5 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -92,8 +92,7 @@ ;; !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. - (setf *gc-notify-stream* nil - *before-gc-hooks* nil + (setf *before-gc-hooks* nil *after-gc-hooks* nil *gc-inhibit* 1 *need-to-collect-garbage* nil