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@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)))