Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28909
Modified Files: scavenge.lisp Log Message: Add some type declarations.
Date: Fri Aug 26 21:38:19 2005 Author: ffjeld
Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.51 movitz/losp/muerte/scavenge.lisp:1.52 --- movitz/losp/muerte/scavenge.lisp:1.51 Sat Jun 11 01:06:39 2005 +++ movitz/losp/muerte/scavenge.lisp Fri Aug 26 21:38:19 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.51 2005/06/10 23:06:39 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.52 2005/08/26 19:38:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -55,6 +55,7 @@ (*scan-last* nil) ; Last scanned object, for debugging. (scan start-location (1+ scan))) ((>= scan end-location)) + (declare (fixnum scan)) (with-simple-restart (continue-map-header-vals "Continue map-header-vals at location ~S." (1+ scan)) (let ((x (memref scan 0 :type :unsigned-byte16))