2 ;;; array.cl -- various lisp utilities for vectors
4 ;;; Author: Cyrus Harmon <ch-lisp@bobobeach.com>
9 (defun copy-array (original-array)
10 "returns a copy of original-array where each element contains
11 the value in original-arary"
12 (let ((dim (array-dimensions original-array
)))
13 (let ((flat-array (make-array (reduce #'* dim
) :displaced-to original-array
)))
14 (let ((flat-copy (copy-seq flat-array
)))
15 (make-array dim
:displaced-to flat-copy
)))))