X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fvmdef.lisp;h=c7fa1971579d05b3babf9d8df81bbaac4936f6ed;hb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;hp=0d0376820c29163127f463a4f22c23c76e63c7fc;hpb=a8fa26a6e9804d3548f5bca9361a91345a689099;p=sbcl.git

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index 0d03768..c7fa197 100644
--- a/src/compiler/vmdef.lisp
+++ b/src/compiler/vmdef.lisp
@@ -203,10 +203,10 @@
 		    (if (eq x '*)
 			t
 			(ecase (first x)
-			  (:or `(or ,@(mapcar #'(lambda (type)
-						  (type-specifier
-						   (primitive-type-type
-						    type)))
+			  (:or `(or ,@(mapcar (lambda (type)
+						(type-specifier
+						 (primitive-type-type
+						  type)))
 					      (rest x))))
 			  (:constant `(constant-argument ,(third x)))))))
 	     `(,@(mapcar #'frob types)