X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=fe5fe86efc1169ebe01e7136af8b7735d4911b0b;hb=26e7568488a46369198e336808b4aba57bbe7a63;hp=ab38ed6c5a4b846d5999ef7c6aa72c5e6c486110;hpb=ae026fe85fef157ff42d6655e5f5e4eef74709f1;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index ab38ed6..fe5fe86 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -371,13 +371,13 @@
                                   size type)
                          #'< :key #'car))))))))
 
-(with-test (:name &more-elt-index-too-large)
+(with-test (:name :&more-elt-index-too-large)
   (assert (raises-error? (funcall
                           (compile nil '(lambda (&rest args)
                                          (declare (optimize safety))
                                          (elt args 0))))
                          sb-kernel:index-too-large-error)))
 
-(with-test (:name do-sequence-on-literals)
+(with-test (:name :do-sequence-on-literals)
   (assert (= (sequence:dosequence (e #(1 2 3)) (return e))
              1)))