diff options
author | Vincent Ambo <mail@tazj.in> | 2021-12-15T20·10+0300 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2021-12-15T21·02+0000 |
commit | 28ac55e94a4c71c1594d7ec51846315aed03e815 (patch) | |
tree | 3cedf2ff4a608605163b848c727690a39821ee10 /third_party/lisp/alexandria/arrays.lisp | |
parent | 50b43cfb66a46fb5579e71d0e55174bb77fa2858 (diff) |
chore(3p/lisp): Unvendor alexandria and use nixpkgs sources r/3254
Change-Id: Idee3cb18ac42bd820d87aac0c68206436c1f4691 Reviewed-on: https://cl.tvl.fyi/c/depot/+/4338 Autosubmit: tazjin <mail@tazj.in> Tested-by: BuildkiteCI Reviewed-by: grfn <grfn@gws.fyi>
Diffstat (limited to 'third_party/lisp/alexandria/arrays.lisp')
-rw-r--r-- | third_party/lisp/alexandria/arrays.lisp | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/third_party/lisp/alexandria/arrays.lisp b/third_party/lisp/alexandria/arrays.lisp deleted file mode 100644 index 76c18791ad5f..000000000000 --- a/third_party/lisp/alexandria/arrays.lisp +++ /dev/null @@ -1,18 +0,0 @@ -(in-package :alexandria) - -(defun copy-array (array &key (element-type (array-element-type array)) - (fill-pointer (and (array-has-fill-pointer-p array) - (fill-pointer array))) - (adjustable (adjustable-array-p array))) - "Returns an undisplaced copy of ARRAY, with same fill-pointer and -adjustability (if any) as the original, unless overridden by the keyword -arguments." - (let* ((dimensions (array-dimensions array)) - (new-array (make-array dimensions - :element-type element-type - :adjustable adjustable - :fill-pointer fill-pointer))) - (dotimes (i (array-total-size array)) - (setf (row-major-aref new-array i) - (row-major-aref array i))) - new-array)) |