From 6887e01d29db0f6bc4d5328e3d29155fc27f2951 Mon Sep 17 00:00:00 2001 Message-Id: <6887e01d29db0f6bc4d5328e3d29155fc27f2951.1746837894.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 17 Apr 2005 21:38:15 +0000 Subject: [PATCH] Made WITH-GC-DISABLED just a wrapper for internal CMUCL/SBCL macros Organization: Straylight/Edgeware From: espen --- glib/utils.lisp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/glib/utils.lisp b/glib/utils.lisp index b1b402c..822a673 100644 --- a/glib/utils.lisp +++ b/glib/utils.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: utils.lisp,v 1.3 2005-02-03 23:09:05 espen Exp $ +;; $Id: utils.lisp,v 1.4 2005-04-17 21:38:15 espen Exp $ (in-package "GLIB") @@ -45,15 +45,8 @@ (defun type-expand-to (type form) (expand form))) (defmacro with-gc-disabled (&body body) - (let ((gc-inhibit (make-symbol "GC-INHIBIT"))) - `(progn - (let ((,gc-inhibit #+cmu lisp::*gc-inhibit* - #+sbcl sb-impl::*gc-inhibit*)) - (gc-off) - (unwind-protect - ,@body - (unless ,gc-inhibit - (gc-on))))))) + #+cmu`(system:without-gcing ,@body) + #+sbcl`(sb-impl::without-gcing ,@body)) (defun mklist (obj) (if (and obj (atom obj)) (list obj) obj)) -- [mdw]