[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

13 Jul 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv7520
Modified Files:
    scavenge.lisp 
Log Message:
Minor edit.
Date: Tue Jul 13 06:00:37 2004
Author: ffjeld
Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.16 movitz/losp/muerte/scavenge.lisp:1.17

--- movitz/losp/muerte/scavenge.lisp:1.16	Mon Jul 12 19:37:36 2004
+++ movitz/losp/muerte/scavenge.lisp	Tue Jul 13 06:00:36 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Created at:    Mon Mar 29 14:54:08 2004
 ;;;;                
-;;;; $Id: scavenge.lisp,v 1.16 2004/07/13 02:37:36 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.17 2004/07/13 13:00:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -127,6 +127,7 @@
      (incf scan)
      (let ((delta (memref scan 0 0 :lisp)))
        (check-type delta positive-fixnum)
+	    ;; (warn "at ~S skipping ~S to ~S." scan delta (+ scan delta))
        (incf scan delta)))
     ((typep x 'pointer)
      (let ((new (funcall function x scan)))

    