X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbackq.impure.lisp;h=a9be79beb6e2bcc1dfb7786ba10411a048dfa665;hb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;hp=c9628a943e7a29b548fec96e63aad6c6c00a20b0;hpb=09957fcf57b49ed5ae5f05d62ad12d7ddbfd8e1d;p=sbcl.git

diff --git a/tests/backq.impure.lisp b/tests/backq.impure.lisp
index c9628a9..a9be79b 100644
--- a/tests/backq.impure.lisp
+++ b/tests/backq.impure.lisp
@@ -51,8 +51,8 @@
     ("``(FOO ,@,@*Q*)" . (foo a b c sqrt 9))
     ("``(,@,@*QQ*)" . (3 5 4 6))))
 
-(mapc #'(lambda (test)
-          (test-double-backquote (car test) (cdr test)))
+(mapc (lambda (test)
+	(test-double-backquote (car test) (cdr test)))
       *backquote-tests*)
 
 ;;; success