[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-serv1677

Modified Files:
	scavenge.lisp 
Log Message:
Forget about old-vectors.

Date: Fri Dec 10 13:47:39 2004
Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.36 movitz/losp/muerte/scavenge.lisp:1.37
--- movitz/losp/muerte/scavenge.lisp:1.36	Fri Nov 26 15:59:31 2004
+++ movitz/losp/muerte/scavenge.lisp	Fri Dec 10 13:47:37 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.36 2004/11/26 14:59:31 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.37 2004/12/10 12:47:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -139,8 +139,6 @@
 				     #.(bt:enum-value 'movitz:movitz-vector-element-type :any-t))
 		(setf *scan-last* (%word-offset scan #.(movitz:tag :other)))
 	      (error "Scanned unknown basic-vector-header ~S at location #x~X." x scan)))
-	   ((scavenge-typep x :old-vector)
-	    (error "Scanned old-vector ~Z at address #x~X." x scan))
 	   ((eq x 3)
 	    (setf *scan-last* scan)
 	    (incf scan)