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

[Frode Vatvedt Fjeld]

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

Modified Files:
	arrays.lisp 
Log Message:
Aref should complain about the vector's (array-dimension v 0), not
(length v).

Date: Wed Jun 16 00:38:27 2004
Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.22 movitz/losp/muerte/arrays.lisp:1.23
--- movitz/losp/muerte/arrays.lisp:1.22	Mon May 24 14:51:52 2004
+++ movitz/losp/muerte/arrays.lisp	Wed Jun 16 00:38:27 2004
@@ -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.22 2004/05/24 21:51:52 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.23 2004/06/16 07:38:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -207,7 +207,8 @@
 		(:cmpw (:eax ,(bt:slot-offset 'movitz:movitz-vector 'movitz::num-elements)) :bx)
 		(:jae '(:sub-program ()
 			(:compile-form (:result-mode :ignore)
-			 (error "Index ~D out of bounds ~D." index (length vector)))))
+			 (error "Index ~D out of bounds ~D."
+			  index (array-dimension vector 0)))))
 
 		(:cmpl ,(movitz:vector-type-tag :any-t) :ecx)
 		(:jne 'not-any-t)