[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp

[Frode Vatvedt Fjeld]

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 at 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*))