-;;;
-;;; KLUDGE: GC shouldn't have different parameters depending on what
-;;; garbage collector we use. -- WHN 19991020
-#!-gencgc
-(defun gc ()
- #!+sb-doc
- "Initiates a garbage collection."
- (sub-gc :force-p t))
-#!+gencgc
-(defun gc (&key (gen 0) (full nil))
- #!+sb-doc
- "Initiates a garbage collection.
- GEN controls the number of generations to garbage collect."
- ;; FIXME: The bare 6 here (corresponding to a bare 6 in
- ;; the gencgc.c sources) is nasty.
+
+(defun gc (&key (gen 0) (full nil) &allow-other-keys)
+ #!+(and sb-doc gencgc)
+ "Initiates a garbage collection. GEN controls the number of generations to garbage collect"
+ #!+(and sb-doc (not gencgc))
+ "Initiates a garbage collection. GEN may be provided for compatibility, but is ignored"