Changeset 5461

Timestamp:

Nov 3, 2006, 12:38:39 PM (18 years ago)

Author:

Gary Byers

Message:

Consistently use :struct (not :structure) to refer to primitive structure type.

Fix array-ctype-dimensions check in %aref1, add it to %aset1.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -6522 +6522 @@
          (atype (if (array-ctype-p ctype) ctype))
          (keyword (if (and atype
-                           (= 1 (length (array-ctype-dimensions atype)))
+                           (let* ((dims (array-ctype-dimensions atype)))
+                             (or (atom dims)
+                                 (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
                     (funcall
@@ -6537 +6539 @@
          (atype (if vtype (specifier-type vtype)))
          (keyword (if (and atype
+                           (let* ((dims (array-ctype-dimensions atype)))
+                             (or (atom dims)
+                                 (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
                     (funcall