tarrays.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) LICENSE
       ---
       tarrays.lisp (871B)
       ---
            1 (in-package :alexandria)
            2 
            3 (defun copy-array (array &key (element-type (array-element-type array))
            4                               (fill-pointer (and (array-has-fill-pointer-p array)
            5                                                  (fill-pointer array)))
            6                               (adjustable (adjustable-array-p array)))
            7   "Returns an undisplaced copy of ARRAY, with same fill-pointer and
            8 adjustability (if any) as the original, unless overridden by the keyword
            9 arguments."
           10  (let* ((dimensions (array-dimensions array))
           11         (new-array (make-array dimensions
           12                                :element-type element-type
           13                                :adjustable adjustable
           14                                :fill-pointer fill-pointer)))
           15    (dotimes (i (array-total-size array))
           16      (setf (row-major-aref new-array i)
           17            (row-major-aref array i)))
           18    new-array))