0.pre7.124:

[sbcl.git] / src / compiler / alpha / type-vops.lisp

diff --git a/src/compiler/alpha/type-vops.lisp b/src/compiler/alpha/type-vops.lisp
index 4b31c6a..2f34a88 100644 (file)
--- a/src/compiler/alpha/type-vops.lisp
+++ b/src/compiler/alpha/type-vops.lisp
@@ -68,9 +68,9 @@
       (error "must supply at least one type for test-type"))
     (cond
      (fixnump
-      (when (remove-if #'(lambda (x)
-                          (or (= x even-fixnum-lowtag)
-                              (= x odd-fixnum-lowtag)))
+      (when (remove-if (lambda (x)
+                        (or (= x even-fixnum-lowtag)
+                            (= x odd-fixnum-lowtag)))
                       lowtags)
        (error "can't mix fixnum testing with other lowtags"))
       (when function-p