From 1cdb33b9f0ffb2adde67aac9f7da7bc694de02ec Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 8 May 2013 09:42:12 +0100 Subject: [PATCH 1/1] Convert test to not to use `equal' --- tests/read.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 1.7.10.4