X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=ab38ed6c5a4b846d5999ef7c6aa72c5e6c486110;hb=36717964ebcff8353035062789c08f223feccf1a;hp=78d9b27ae965bd262fa721e0efa83f759dddb36d;hpb=e626db9d157d8790efe3762a7f46cc347161f8e8;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 78d9b27..ab38ed6 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -377,3 +377,7 @@
                                          (declare (optimize safety))
                                          (elt args 0))))
                          sb-kernel:index-too-large-error)))
+
+(with-test (:name do-sequence-on-literals)
+  (assert (= (sequence:dosequence (e #(1 2 3)) (return e))
+             1)))