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

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index d6aa497..ded374f 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -298,4 +298,8 @@
   (assert (eql 2
                (funcall (lambda ()
                           (declare (optimize speed))
-                          (search #(1) #(1 1) :start1 1 :start2 2))))))
+                          (search #(1) #(1 1) :start1 1 :start2 2)))))
+  (assert (eql 2
+               (funcall (lambda ()
+                          (declare (optimize speed))
+                          (search #() #(1 1) :from-end t))))))