X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=1d87564fa710a4f77bc197025dd31e6618ea3359;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=523f347bf147e729f601cfc125f71c16f0c0d911;hpb=550e5afc7ad95ff1e1bbfe932bf8dd81b0c4dce6;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 523f347..1d87564 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -33,9 +33,9 @@
 
 #!-sb-fluid
 (declaim (inline dynamic-usage)) ; to reduce PROFILEd call overhead
-#!+(or cgc gencgc)
+#!+gencgc
 (def-c-var-frob dynamic-usage "bytes_allocated")
-#!-(or cgc gencgc)
+#!-gencgc
 (defun dynamic-usage ()
   (the (unsigned-byte 32)
        (- (sb!sys:sap-int (sb!c::dynamic-space-free-pointer))