The following two examples from grid:map.lisp produce an error on clisp/cygwin<br><br>;;; Extract the diagonal, inject into a vector of length 6, with the<br>;;; first three elements set to a default value<br>(map-grid :source *array-3-4-double-float*<br>

      :source-affi (affi:diagonal (affi *array-3-4-double-float*))<br>      :destination-affi (affi:make-affi '(6) 3)<br>      :default-value -77.7d0)<br><br>;;; Extract the diagonal, inject at index 3 into a vector of length 6,<br>

;;; adding to the vector elements<br>(map-grid :source *array-3-4-double-float*<br>      :source-affi (affi:diagonal (affi *array-3-4-double-float*))<br>      :destination-affi (affi:make-affi '(6) 3)<br>      :default-value -77.7d0<br>

      :combination-function '+)<br><br>The reported error is:<br><br>ROW-MAJOR-AREF: index NIL for #2A((#1=0.0d0 1.0d0 2.0d0 3.0d0)<br>    (10.0d0 11.0d0 12.0d0 13.0d0)<br>    (20.0d0 21.0d0 22.0d0 23.0d0)) is not of type `(INTEGER 0 (,ARRAY-DIMENSION-LIMIT))<br>

   [Condition of type SIMPLE-TYPE-ERROR]<br><br>I can make it work by using the destination-affi (make-affi '(3)), but not (make-affi '(4)) or larger. <br><br>Mirko<br>