oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a reverse argument sort

Browse Source
This commit is contained in:
Aryadev Chavali
2025-03-02 21:42:33 +00:00
parent 5f4bfd77bd
commit 062b5f59d7
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/functions.lisp
View File

@@ -60,3 +60,6 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}."
:for item :in (coerce lst 'list) :for item :in (coerce lst 'list)
:if (not (member i indices)) :if (not (member i indices))
:collect item)) :collect item))
(fn sort* (func lst) (-> (function sequence) sequence)
(sort lst func))

2
packages.lisp
View File

@@ -30,7 +30,7 @@
(:nicknames :5d-lib.functions) (:nicknames :5d-lib.functions)
(:use :cl :5d-lib.macros) (:use :cl :5d-lib.macros)
(:export (:export
:parse-integer* :parse-integer* :sort*
:range :take :split :range :take :split
:rev-map :rev-map
:remove-at-indices)) :remove-at-indices))