arrays.lisp - clic - Clic is an command line interactive client for gopher writ… | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
arrays.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… | |
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)) |