X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=bab052752e29bf6dc9f99cc1487c76db4f320acf;hb=e536da6bd0f0b6db16863f5e031a05e6797fc2a9;hp=37149cf614c60b4184ac642a7f3b698ae07a0be7;hpb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 37149cf..bab0527 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -159,13 +159,9 @@
                 "SRC;CODE;PROFILE"
                 "SRC;CODE;NTRACE"
                 "SRC;CODE;STEP"
-                "SRC;CODE;RUN-PROGRAM"
-
-                ;; Code derived from PCL's pre-ANSI DESCRIBE-OBJECT
-                ;; facility is still used in our ANSI DESCRIBE
-                ;; facility, and should be compiled and loaded after
-                ;; our DESCRIBE facility is compiled and loaded.
-                "SRC;PCL;DESCRIBE"))
+                "SRC;CODE;WARM-LIB"
+                #+win32 "SRC;CODE;WARM-MSWIN"
+                "SRC;CODE;RUN-PROGRAM"))
 
   (let ((fullname (concatenate 'string "SYS:" stem ".LISP")))
     (sb-int:/show "about to compile" fullname)