0.pre7.126:

[sbcl.git] / src / compiler / vmdef.lisp

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index 0d03768..c7fa197 100644 (file)
--- 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)