[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-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 at 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)