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

Modified Files:
	los0-gc.lisp 
Log Message:
Commented out some debugging code that shouldn't be running.

Date: Mon Jul 12 19:38:27 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.23 movitz/losp/los0-gc.lisp:1.24
--- movitz/losp/los0-gc.lisp:1.23	Mon Jul 12 04:11:15 2004
+++ movitz/losp/los0-gc.lisp	Mon Jul 12 19:38:27 2004
@@ -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.23 2004/07/12 11:11:15 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.24 2004/07/13 02:38:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -390,6 +390,7 @@
 			       (+ newspace-location (space-fresh-pointer newspace)))
 	       (setf scan-pointer fresh-pointer))
 
+	#+ignore
 	(dotimes (i (truncate (length *x*) 2))
 	  (let ((x (muerte::%word-offset (aref *x* (* i 2)) 6))
 		(y (muerte::%word-offset (aref *x* (1+ (* i 2))) 6)))