external/ch-util/src/array.cl

   1 ;;;
   2 ;;; array.cl -- various lisp utilities for vectors
   3 ;;;
   4 ;;; Author: Cyrus Harmon <ch-lisp@bobobeach.com>
   5 ;;;
   6
   7 (in-package :ch-util)
   8
   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)))))
  16