Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv27264 Modified Files: scavenge.lisp Log Message: Operator %lispval-object supersedes fixnum-words. Date: Tue Jul 20 05:37:05 2004 Author: ffjeld Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.21 movitz/losp/muerte/scavenge.lisp:1.22 --- movitz/losp/muerte/scavenge.lisp:1.21 Tue Jul 20 01:54:52 2004 +++ movitz/losp/muerte/scavenge.lisp Tue Jul 20 05:37:04 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.21 2004/07/20 08:54:52 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.22 2004/07/20 12:37:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -124,7 +124,7 @@ (error "Scanned unknown basic-vector #x~Z at address #x~X." x scan)) ((scavenge-typep x :old-vector) (error "Scanned old-vector #x~Z at address #x~X." x scan)) - ((eq x (fixnum-word 3)) + ((eq x (%lispval-object 3)) (incf scan) (let ((delta (memref scan 0 0 :lisp))) (check-type delta positive-fixnum)