From b105d646f31223d9f11f766d25d45b0c946e30b0 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 22 Apr 1991 15:25:33 +0000 Subject: [PATCH] Changed WITHOUT-GCING to use UNWIND-PROTECT instead of MULTIPLE-VALUE-PROG1 so that we don't lose GC triggers. --- code/sysmacs.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index 3ad3be797..9a0c7116b 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*)) -- GitLab