X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fdefun-load-or-cload-xcompiler.lisp;h=66182a7299606d67900fc714ee0872445938d96d;hb=731da68c7e3b7f2c4bc310aa75fc75f5aead24d2;hp=b3e8e2ecd8669df21e42b26f4f55fbd37b6f55f6;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index b3e8e2e..66182a7 100644
--- 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))