[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Use aref rather than svref, we don't know that the vector is simple.

Date: Wed Jul 21 07:15:13 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.28 movitz/storage-types.lisp:1.29
--- movitz/storage-types.lisp:1.28	Mon Jul 12 19:26:19 2004
+++ movitz/storage-types.lisp	Wed Jul 21 07:15:13 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.28 2004/07/13 02:26:19 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.29 2004/07/21 14:15:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -396,8 +396,8 @@
 (defmethod update-movitz-object ((movitz-vector movitz-basic-vector) (vector vector))
   (when (eq :any-t (movitz-vector-element-type movitz-vector))
     (loop for i from 0 below (length vector)
-	do (setf (svref (movitz-vector-symbolic-data movitz-vector) i)
-	     (movitz-read (svref vector i)))))
+	do (setf (aref (movitz-vector-symbolic-data movitz-vector) i)
+	     (movitz-read (aref vector i)))))
   (values))
 
 (defmethod write-binary-record ((obj movitz-basic-vector) stream)