diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index 3ad3be79735368c4497a30b909735ca284247ae5..9a0c7116bd3cd7c3fdfa1ec76d4bd1f743b93a9c 100644 --- a/code/sysmacs.lisp +++ b/code/sysmacs.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.7 1991/02/08 13:36:22 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.8 1991/04/22 15:25:33 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -46,7 +46,7 @@ (defmacro without-gcing (&rest body) "Executes the forms in the body without doing a garbage collection." - `(multiple-value-prog1 + `(unwind-protect (let ((*gc-inhibit* t)) ,@body) (when (and *need-to-collect-garbage* (not *gc-inhibit*))