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