0.pre7.124:

[sbcl.git] / src / compiler / alpha / array.lisp

diff --git a/src/compiler/alpha/array.lisp b/src/compiler/alpha/array.lisp
index a74b898..ab99060 100644 (file)
--- a/src/compiler/alpha/array.lisp
+++ b/src/compiler/alpha/array.lisp
@@ -100,7 +100,7 @@
                 (define-full-reffer ,(symbolicate "DATA-VECTOR-REF/" type)
                  ,type
                   vector-data-offset other-pointer-lowtag
-                  ,(remove-if #'(lambda (x) (member x '(null zero))) scs)
+                  ,(remove-if (lambda (x) (member x '(null zero))) scs)
                   ,element-type
                   data-vector-ref)
                 (define-full-setter ,(symbolicate "DATA-VECTOR-SET/" type)