Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5548)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5549)
@@ -7819,5 +7819,5 @@
          (keyword (and atype
                        (let* ((dims (array-ctype-dimensions atype)))
-                         (and (type dims 'list)
+                         (and (typep dims 'list)
                               (= 2 (length dims))))
                        (not (array-ctype-complexp atype))