[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv24160

Modified Files:
	inspect.lisp 
Log Message:
Removed references to the old movitz-vector class.

Date: Thu Jul  8 11:53:47 2004
Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp
diff -u movitz/losp/muerte/inspect.lisp:1.14 movitz/losp/muerte/inspect.lisp:1.15
--- movitz/losp/muerte/inspect.lisp:1.14	Thu Jul  8 08:23:15 2004
+++ movitz/losp/muerte/inspect.lisp	Thu Jul  8 11:53:47 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 24 09:50:41 2003
 ;;;;                
-;;;; $Id: inspect.lisp,v 1.14 2004/07/08 15:23:15 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.15 2004/07/08 18:53:47 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -249,19 +249,19 @@
        (<= object-location
 	   location
 	   (+ -1 object-location
-	      #.(movitz::movitz-type-word-size :movitz-vector)
+	      #.(movitz::movitz-type-word-size 'movitz-basic-vector)
 	      (* 2 (truncate (+ (array-dimension object 0) 7) 8)))))
       (vector-u16
        (<= object-location
 	   location
 	   (+ -1 object-location
-	      #.(movitz::movitz-type-word-size :movitz-vector)
+	      #.(movitz::movitz-type-word-size 'movitz-basic-vector)
 	      (* 2 (truncate (+ (array-dimension object 0) 3) 4)))))
       ((or vector-u32 simple-vector)
        (<= object-location
 	   location
 	   (+ -1 object-location
-	      #.(movitz::movitz-type-word-size :movitz-vector)
+	      #.(movitz::movitz-type-word-size 'movitz-basic-vector)
 	      (* 2 (truncate (+ (array-dimension object 0) 1) 2)))))
       (structure-object
        (<= object-location