Changeset 6333

Timestamp:

Apr 22, 2007, 3:52:15 AM (18 years ago)

Author:

Gary Byers

Message:

aref1/aset1: fix array dims check: want a list of length 1.

File:

• branches/x8664-call/ccl/compiler/X86/x862.lisp (modified) (3 diffs)

branches/x8664-call/ccl/compiler/X86/x862.lisp

@@ -6774 +6774 @@
          (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 +6791 @@
          (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 +7778 @@
                        (let* ((dims (array-ctype-dimensions atype)))
                          (and (typep dims 'list)
-                              
                               (= 2 (length dims))))
                        (not (array-ctype-complexp atype))