X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpurify.lisp;h=ecf071c1adbca34385ad14874c907921f4dc5eed;hb=4ba392170e98744f0ef0b8e08a5d42b988f1d0c9;hp=d869342f8b0a79493895395a82e35780337c9e1d;hpb=b3a0eb5ae9a1d736a9fe106bb3422f44de9c0e96;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index d869342..ecf071c 100644
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -42,8 +42,15 @@
 
    ENVIRONMENT-NAME is gratuitous documentation for compacted version of the
    current global environment (as seen in SB!C::*INFO-ENVIRONMENT*.) If NIL is
-   supplied, then environment compaction is inhibited."
+   supplied, then environment compaction is inhibited.
 
-  (when environment-name (compact-environment-aux environment-name 200))
-  (%purify (get-lisp-obj-address root-structures)
-           (get-lisp-obj-address nil)))
+   This function is a no-op on platforms using the generational garbage
+   collector (x86, x86-64, ppc)."
+  #!+gencgc
+  (declare (ignore root-structures environment-name))
+  #!-gencgc
+  (progn
+    (when environment-name
+      (compact-environment-aux environment-name 200))
+    (%purify (get-lisp-obj-address root-structures)
+             (get-lisp-obj-address nil))))