diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-21 14:06:05 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-21 14:20:34 +0000 |
| commit | 7c64d23b0af1f33292fa47f9201ad42bb984af60 (patch) | |
| tree | 57c3a2909fc926815cb18b94f900fb174d4fba5d /lib | |
| parent | 1edd618b42821f26b0a31ae63f393c09259c046b (diff) | |
| download | cantedraw-7c64d23b0af1f33292fa47f9201ad42bb984af60.tar.gz cantedraw-7c64d23b0af1f33292fa47f9201ad42bb984af60.tar.bz2 cantedraw-7c64d23b0af1f33292fa47f9201ad42bb984af60.zip | |
Add unit tests for lib.functions.remove-at-indices
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/functions.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/functions.lisp b/lib/functions.lisp index 4e18a0a..65dd7f5 100644 --- a/lib/functions.lisp +++ b/lib/functions.lisp @@ -55,8 +55,8 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}." "Given string INP, attempt to parse an integer. Return NIL otherwise." (parse-integer inp :junk-allowed t)) -(fn remove-at-indices (indices lst) (-> (list list) list) +(fn remove-at-indices (indices lst) (-> (list sequence) list) (loop :for i :from 0 :to (1- (length lst)) - :for item :in lst + :for item :in (coerce lst 'list) :if (not (member i indices)) :collect item)) |