[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-serv5326

Modified Files:
	los0-gc.lisp 
Log Message:
Disable some of the debugging cruft.

Date: Thu May  5 20:08:39 2005
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.51 movitz/losp/los0-gc.lisp:1.52
--- movitz/losp/los0-gc.lisp:1.51	Thu May  5 17:16:48 2005
+++ movitz/losp/los0-gc.lisp	Thu May  5 20:08:39 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.51 2005/05/05 15:16:48 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.52 2005/05/05 18:08:39 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -332,7 +332,7 @@
       (values))))
 
 
-(defparameter *x* #4000(nil))		; Have this in static space.
+(defparameter *x* #1000(nil))		; Have this in static space.
 ;;;(defparameter *xx* #4000(nil))		; Have this in static space.
 
 (defparameter *code-vector-foo* 0)
@@ -364,6 +364,7 @@
 		   nil)
 		  ((object-in-space-p newspace x)
 		   x)
+		  #+ignore
 		  ((and (typep x 'code-vector)
 			(not (object-in-space-p oldspace x))
 			(not (object-in-space-p newspace x))