X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.impure.lisp;h=df8dbc084199ee26ab7c86a4b06c3868f9ab1411;hb=b767eae48831153473226b985511c8f7a3ef98c5;hp=ef2eeda460145c43aba28ac72104b77e724e549b;hpb=f5fff2abb7de72d52905253a664cff2f80b6a617;p=sbcl.git

diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp
index ef2eeda..df8dbc0 100644
--- a/tests/seq.impure.lisp
+++ b/tests/seq.impure.lisp
@@ -172,7 +172,7 @@
     (eql 5 (position-if (lambda (c) (equal #\g c)) seq))
     (eql 5 (position-if (lambda (c) (equal #\g c)) seq :from-end t))
     (find-if #'characterp seq)
-    (find-if #'(lambda (c) (typep c 'base-char)) seq :from-end t)
+    (find-if (lambda (c) (typep c 'base-char)) seq :from-end t)
     (null (find-if 'upper-case-p seq))))
 	 
 ;;; success