I can not find convert function
#A(...) -> #m(...)
( cl-array is conversion #m -> #a )
Thus I write the following ,but that looks slow.
--------------
(defun coerce-array-to-list (in-array)
(map 'list
#'identity
(make-array (array-total-size in-array)
:element-type (array-element-type in-array)
:displaced-to in-array)))
;borrow from http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/a925ca60d88d4047/cc06e579dfe840a7?lnk=gst&q=displaced+array
(defun appropriate-name (element-type ar)
(make-marray element-type :dimensions (array-dimensions ar)
:initial-contents (coerce-array-to-list ar))
)
---------------
usage:
( appropriate-name 'double-float #2A((1.0d0 2.0d0) (2.0d0 5.0d0)))
->
#m((1.0d0 2.0d0) (2.0d0 5.0d0)))
_______________________________________________
Gsll-devel mailing list
Gsll-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel