[Openmcl-devel] BUG: 2D arrays broken on AMD64

Eric Marsden eric.marsden at free.fr
Sun Apr 15 08:58:47 PDT 2007


The following test from cl-bench triggers the assertion on OpenMCL
1.1-pre-070408 (LinuxX8664) built from CVS. This used to work.

(defun bench-2d-arrays (&optional (size 2000) (runs 10))
  (declare (fixnum size))
  (let ((ones (make-array (list size size) :element-type '(integer 0 1000) :initial-element 1))
        (twos (make-array (list size size) :element-type '(integer 0 1000) :initial-element 2))
        (threes (make-array (list size size) :element-type '(integer 0 2000))))
    (dotimes (runs runs)
      (dotimes (i size)
        (dotimes (j size)
          (setf (aref threes i j)
                (+ (aref ones i j) (aref twos i j)))))
      (assert (eql 3 (aref threes 3 3)))))

Eric Marsden

More information about the Openmcl-devel mailing list