[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv6364

Modified Files:
	scavenge.lisp 
Log Message:
Minor tweaks.

Date: Sun Aug 28 23:13:08 2005
Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.53 movitz/losp/muerte/scavenge.lisp:1.54
--- movitz/losp/muerte/scavenge.lisp:1.53	Sat Aug 27 00:42:43 2005
+++ movitz/losp/muerte/scavenge.lisp	Sun Aug 28 23:13:07 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Mar 29 14:54:08 2004
 ;;;;                
-;;;; $Id: scavenge.lisp,v 1.53 2005/08/26 22:42:43 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.54 2005/08/28 21:13:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -52,6 +52,7 @@
 				(movitz:tag primary))))
 		 `(= ,code ,x)))
 	     (record-scan (x)
+	       (declare (ignorable x))
 	       #+ignore `(setf *scan-last* ,x)))
     (do ((verbose *map-header-vals-verbose*)
 	 (*scan-last* nil)		; Last scanned object, for debugging.
@@ -149,8 +150,7 @@
 		;; Jumpers
 		(let ((num-jumpers (memref scan 0 :type :unsigned-byte14))
 		      #+ignore (num-constants (memref scan 2 :type :unsigned-byte16)))
-		  (incf scan num-jumpers)
-		  #+ignore (warn "~D jumpers for ~S, ~S" num-jumpers *scan-last* scan))))))
+		  (incf scan num-jumpers))))))
 	   ((scavenge-typep x :infant-object)
 	    (assert (evenp scan) ()
 	      "Scanned infant ~S at odd location #x~X." x scan)
@@ -409,6 +409,7 @@
 					  debug-context)
   "Update the (raw) instruction-pointer at location,
 assuming the pointer refers to old-code-vector."
+  (declare (ignorable debug-context))
   ;; (check-type old-code-vector code-vector) ; Can't de-reference old objects..
   (let ((old-ip-location (memref location 0 :type :location)))
     (assert (location-in-code-vector-p%unsafe old-code-vector old-ip-location))