1.0.2:

[sbcl.git] / src / cold / defun-load-or-cload-xcompiler.lisp

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index b3e8e2e..66182a7 100644 (file)
--- a/src/cold/defun-load-or-cload-xcompiler.lisp
+++ b/src/cold/defun-load-or-cload-xcompiler.lisp
@@ -174,6 +174,9 @@
   ;; (in the ordinary build procedure anyway) essentially everything
   ;; which is reachable at this point will remain reachable for the
   ;; entire run.
-  #+sbcl (sb-ext:purify)
+  ;;
+  ;; (Except that purifying actually slows down GENCGC). -- JES, 2006-05-30
+  #+(and sbcl (not gencgc))
+  (sb-ext:purify)
 
   (values))