Add a reverse argument sort

2025-03-02 21:42:33 +00:00
parent 5f4bfd77bd
commit 062b5f59d7
2 changed files with 4 additions and 1 deletions
--- a/lib/functions.lisp
+++ b/lib/functions.lisp
@@ -60,3 +60,6 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}."
        :for item :in (coerce lst 'list)
        :if (not (member i indices))
          :collect item))
+
+(fn sort* (func lst) (-> (function sequence) sequence)
+  (sort lst func))