arrays.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP (HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) README (DIR) 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-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))