X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Freader.pure.lisp;h=567235d0d377ec07fbbc73bdc6d99d8ec196372f;hb=14538e006c43facf52e17e452cb1164077bbafd3;hp=04d9dda9258b8896e8c74634d807af4afce1e60c;hpb=b8359d1e6db950b0a7bd4a255ed6d57a3eac08ef;p=sbcl.git

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index 04d9dda..567235d 100644
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -288,3 +288,6 @@
   (with-timeout 10
     (assert (raises-error? (read-from-string "10e10000000000000000000")
                            sb-kernel:reader-impossible-number-error))))
+
+(with-test (:name :bug-1095918)
+  (assert (= (length `#3(1)) 3)))