Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv16407
Modified Files: los0-gc.lisp Log Message: Let's be more consistent.
Date: Sun Jun 12 22:32:44 2005 Author: ffjeld
Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.56 movitz/losp/los0-gc.lisp:1.57 --- movitz/losp/los0-gc.lisp:1.56 Sat Jun 11 02:01:09 2005 +++ movitz/losp/los0-gc.lisp Sun Jun 12 22:32:44 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.56 2005/06/11 00:01:09 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.57 2005/06/12 20:32:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -22,7 +22,7 @@ (defvar *gc-running* nil) (defvar *gc-break* nil) (defvar *gc-trigger* nil) -(defvar *gc-consitency-check* t) +(defvar *gc-consistency-check* nil)
(defmacro space-fresh-pointer (space) @@ -397,7 +397,7 @@ forwarded-x))) (let ((forward-x (shallow-copy x))) (when (and (typep x 'muerte::pointer) - *gc-consitency-check*) + *gc-consistency-check*) (let ((a *x*)) (vector-push (%object-lispval x) a) (vector-push (memref (object-location x) 0 :type :unsigned-byte32) a) @@ -425,7 +425,7 @@ x) nil (current-stack-frame)) - (when *gc-consitency-check* + (when *gc-consistency-check* (with-simple-restart (continue "Ignore failed GC consistency check.") (without-interrupts (let ((a *x*))