Index: /branches/x8664-call/ccl/compiler/X86/x862.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x862.lisp	(revision 6332)
+++ /branches/x8664-call/ccl/compiler/X86/x862.lisp	(revision 6333)
@@ -6774,6 +6774,6 @@
          (keyword (if (and atype
                            (let* ((dims (array-ctype-dimensions atype)))
-                             (or (atom dims)
-                                 (= (length dims) 1)))
+                             (and (not (atom dims))
+                                  (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
                     (funcall
@@ -6791,5 +6791,5 @@
          (keyword (if (and atype
                            (let* ((dims (array-ctype-dimensions atype)))
-                             (or (atom dims)
+                             (and (not (atom dims))
                                  (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
@@ -7778,5 +7778,4 @@
                        (let* ((dims (array-ctype-dimensions atype)))
                          (and (typep dims 'list)
-                              
                               (= 2 (length dims))))
                        (not (array-ctype-complexp atype))