X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fread.lisp;h=a7cfa940763896aa86a05dca3b2fcf07936b72f4;hb=7b9a324ebfa06cac1e9b95c6724de4f4c2e51c90;hp=4f6ea8390e56d4f70cb36f18d68275a7349caade;hpb=ac57d5570ffb5fb9936ffca4e0d6c8d9fddc1e29;p=jscl.git

diff --git a/tests/read.lisp b/tests/read.lisp
index 4f6ea83..a7cfa94 100644
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -14,7 +14,11 @@
 (test (equal (read-from-string "(1 . 25)") '(1 . 25)))
 
 (test (equal (read-from-string "(#1=99 2 3 #1#)") '(99 2 3 99)))
-(test (equal (read-from-string "#(#1=99 2 3 #1#)") '#(99 2 3 99)))
+(let ((v (read-from-string "#(#1=99 2 3 #1#)")))
+  (test (and (eql (aref v 0) 99)
+             (eql (aref v 1) 2)
+             (eql (aref v 2) 3)
+             (eql (aref v 3) 99))))
 
 (test (let ((x (read-from-string "#1=(42 . #1#)")))
         (and (eql (nth 99 x) 42)