(in-package "SB!IMPL")
\f
-#!-gengc
(defmacro without-gcing (&rest body)
#!+sb-doc
"Executes the forms in the body without doing a garbage collection."
,@body)
(when (and *need-to-collect-garbage* (not *gc-inhibit*))
(maybe-gc nil))))
-
-#!+gengc
-(defmacro without-gcing (&rest body)
- #!+sb-doc
- "Executes the forms in the body without doing a garbage collection."
- `(without-interrupts ,@body))
\f
;;; EOF-OR-LOSE is a useful macro that handles EOF.
(defmacro eof-or-lose (stream eof-error-p eof-value)