X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Freader.pure.lisp;h=0d229334289d1b8afc61cd1ad5e9a9de7c614ef7;hb=b914788eab773b579664dcdc09a5278161191c47;hp=7e964ff06d6094e1555a2820fac6c2ed0882013a;hpb=e8ba5a3c7e1b34b616391098b30b3c2ae8891d74;p=sbcl.git

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index 7e964ff..0d22933 100644
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -224,3 +224,7 @@
 (multiple-value-bind (res err) (ignore-errors (read-from-string ""))
   (assert (not res))
   (assert (typep err 'end-of-file)))
+
+(assert (equal '((0 . "A") (1 . "B"))
+               (coerce (read-from-string "#((0 . \"A\") (1 . \"B\"))") 
+                       'list)))