X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=ded374fa6679707d6f4f1a2883ca047501dc7f16;hb=dc38fdd88ed505af945ee951635b396e129edb28;hp=3819f41acbec0f823af2716b17f17275ecc78bc1;hpb=e981481e65e869a92420616163b2ba3ec68b25d7;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 3819f41..ded374f 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -290,4 +290,16 @@
                                        (search x #(t t t) :start2 1 :end2 0 :end1 0)))
                            #(t t t))
                 (sb-kernel:bounding-indices-bad-error ()
-                  :ok)))))
+                  :ok))))
+  (assert (eql 1
+               (funcall (lambda ()
+                          (declare (optimize speed))
+                          (search #() #(1 1) :start2 1 :end2 1)))))
+  (assert (eql 2
+               (funcall (lambda ()
+                          (declare (optimize speed))
+                          (search #(1) #(1 1) :start1 1 :start2 2)))))
+  (assert (eql 2
+               (funcall (lambda ()
+                          (declare (optimize speed))
+                          (search #() #(1 1) :from-end t))))))