X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Farray.lisp;h=cf3af860af2edbee20345aa2fefb47bb348c1416;hb=24bc431a3403af05c5df601d09c0d0c27cb500b2;hp=a74b8982332639d9f1eaf351bafa8c5c2bafd76a;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/alpha/array.lisp b/src/compiler/alpha/array.lisp
index a74b898..cf3af86 100644
--- a/src/compiler/alpha/array.lisp
+++ b/src/compiler/alpha/array.lisp
@@ -52,7 +52,7 @@
 
 (define-full-setter %set-array-dimension *
   array-dimensions-offset other-pointer-lowtag
-  (any-reg) positive-fixnum sb!impl::%set-array-dimension #+gengc nil)
+  (any-reg) positive-fixnum sb!impl::%set-array-dimension #!+gengc nil)
 
 
 (defknown sb!impl::%array-rank (t) index (flushable))
@@ -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)