On Tue, Nov 16, 2010 at 2:23 PM, Mirko Vukovic mirko.vukovic@gmail.com wrote:
I can go from foreign arrays to cl-arrays:
(grid:copy-to #m(1.0d0 2.0d0) 'grid::array)
(although the use of the *internal* symbol `array' puzzles me)
So, why did you use it? (copy-to #m(1.0d0 2.0d0) 'array) #(1.0d0 2.0d0) works just fine.
but I cannot do the converse:
(grid:copy-to #(1.0d0 2.0d0) 'grid:foreign-array)
That's because #(1.0d0 2.0d0) makes a vector without a specific element type, which foreign-arrays require (type-of #(1.0d0 2.0d0)) (SIMPLE-VECTOR 2)
(type-of (make-array 2 :element-type 'double-float :initial-contents '(1.0d0 2.0d0))) (SIMPLE-ARRAY DOUBLE-FLOAT (2))
(copy-to (make-array 2 :element-type 'double-float :initial-contents '(1.0d0 2.0d0)) 'grid:foreign-array) #m(1.0d0 2.0d0)
There is no class named GRID::VECTOR-T. [Condition of type SIMPLE-ERROR]
Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {BD57319}>)
Backtrace: 0: (SB-PCL::FIND-CLASS-FROM-CELL GRID::VECTOR-T NIL T) 1: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (SYMBOL)) #<unavailable argument> #<unavailable argument> GRID::VECTOR-T)[:EXTERNAL] 2: ((SB-PCL::FAST-METHOD GRID::MAKE-GRID-DATA ((EQL 'GRID:FOREIGN-ARRAY) T T)) #<unavailable argument> #<unavailable argument> #<unavailable argument> (2) (T))[:EXTERNAL] 3: (GRID:MAP-N-GRIDS)[:EXTERNAL] 4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (GRID:COPY-TO #(1.0d0 2.0d0) 'GRID:FOREIGN-ARRAY) #<NULL-LEXENV>)
I get the same results with the function `copy-to'
I get the same problem if I am in the package :grid.
From tracing the call tree, I think that the `T' vector-T stems from a call to `array-element-type' which under SBCL gives the following:
GRID> (array-element-type #(1.0 2.0)) T
Perhaps this error message should be improved.
Thanks,
Mirko