tarrays.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML 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))