Optimize pprinting of heavily nested lists.

[sbcl.git] / src / cold / warm.lisp

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index c95bf83..bab0527 100644 (file)
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -160,6 +160,7 @@
                 "SRC;CODE;NTRACE"
                 "SRC;CODE;STEP"
                 "SRC;CODE;WARM-LIB"
+                #+win32 "SRC;CODE;WARM-MSWIN"
                 "SRC;CODE;RUN-PROGRAM"))
 
   (let ((fullname (concatenate 'string "SYS:" stem ".LISP")))