X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=91bd152125da8b4c7bad6131e6e59d65fd278475;hb=3eb39e017e52b5d704e7d33405c873af52a533fd;hp=a89de691f8b5fa8a6b3e500fe990bec2ede12832;hpb=50b745c43a03ed3407df5365fee414bcac0bb44c;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index a89de69..91bd152 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -269,14 +269,3 @@
 ;;; through the cold boot process. They need to be set somewhere. Maybe the
 ;;; easiest thing to do is to read them out of package-data-list.lisp-expr
 ;;; now?
-
-;;;; resetting compilation policy to neutral values in preparation for
-;;;; SAVE-LISP-AND-DIE as final SBCL core
-
-(sb-int:/show "setting compilation policy to neutral values")
-(proclaim '(optimize (compilation-speed 1)
-		     (debug 1)
-		     (inhibit-warnings 1)
-		     (safety 1)
-		     (space 1)
-		     (speed 1)))