Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv13921/tests
18.104.22.168: don't print the array object when reporting index out of bounds
* Report the type of the array instead, and encapsulate the array object in the
condition object so that it can still be inspected manually.
* Suggested by Stas Boukarev.
RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- array.pure.lisp 5 Dec 2008 13:16:21 -0000 1.32
+++ array.pure.lisp 12 Jan 2009 11:26:42 -0000 1.33
@@ -249,3 +249,14 @@
(assert (not (array-has-fill-pointer-p
(make-array 5 :fill-pointer 4)))))))
+(with-test (:name invalid-array-index-error)
+ (let ((array (make-array '(3 3 3))))
+ (eq :right
+ (eval `(aref ,array 0 1 3))
+ (sb-int:invalid-array-index-error (e)
+ (when (and (eq array (sb-kernel::invalid-array-index-error-array e))
+ (= 3 (type-error-datum e)))
Sign up for the SourceForge newsletter: