[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv14521

Modified Files:
	arrays.lisp 
Log Message:
Insignificant syntax tweak.


--- /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2007/02/22 21:02:09	1.60
+++ /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2007/03/11 22:41:45	1.61
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Feb 11 23:14:04 2001
 ;;;;                
-;;;; $Id: arrays.lisp,v 1.60 2007/02/22 21:02:09 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.61 2007/03/11 22:41:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -564,8 +564,7 @@
 	    (:jne 'not-basic-simple-vector)
 	    (:cmpl :edx (:ebx (:offset movitz-basic-vector num-elements)))
 	    (:jbe 'illegal-index)
-	    (:movl :eax
-		   (:ebx :edx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))))))
+	    (:movl :eax (:ebx :edx (:offset movitz-basic-vector data))))))
     (do-it)))
 
 ;;; string accessors