Fixed; do a fresh pull on GSD. Head: fa26e00108 - In map-n-grids, iterate until "next" source walker returns nil
Liam On Wed, Feb 24, 2010 at 10:13 PM, Mirko Vukovic <[email protected]> wrote: > The following two examples from grid:map.lisp produce an error on > clisp/cygwin > > ;;; Extract the diagonal, inject into a vector of length 6, with the > ;;; first three elements set to a default value > (map-grid :source *array-3-4-double-float* > :source-affi (affi:diagonal (affi *array-3-4-double-float*)) > :destination-affi (affi:make-affi '(6) 3) > :default-value -77.7d0) > > ;;; Extract the diagonal, inject at index 3 into a vector of length 6, > ;;; adding to the vector elements > (map-grid :source *array-3-4-double-float* > :source-affi (affi:diagonal (affi *array-3-4-double-float*)) > :destination-affi (affi:make-affi '(6) 3) > :default-value -77.7d0 > :combination-function '+) > > The reported error is: > > ROW-MAJOR-AREF: index NIL for #2A((#1=0.0d0 1.0d0 2.0d0 3.0d0) > (10.0d0 11.0d0 12.0d0 13.0d0) > (20.0d0 21.0d0 22.0d0 23.0d0)) is not of type `(INTEGER 0 > (,ARRAY-DIMENSION-LIMIT)) > [Condition of type SIMPLE-TYPE-ERROR] > > I can make it work by using the destination-affi (make-affi '(3)), but not > (make-affi '(4)) or larger. > > Mirko > > _______________________________________________ > Gsll-devel mailing list > [email protected] > http://common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel > > _______________________________________________ Gsll-devel mailing list [email protected] http://common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel
