From 062b5f59d74bda9710c3b532648658a4a7910290 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sun, 2 Mar 2025 21:42:33 +0000
Subject: Add a reverse argument sort

---
 lib/functions.lisp | 3 +++
 packages.lisp      | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/functions.lisp b/lib/functions.lisp
index 65dd7f5..daeac0a 100644
--- 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))
diff --git a/packages.lisp b/packages.lisp
index 594dda5..1c5f889 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -30,7 +30,7 @@
   (:nicknames :5d-lib.functions)
   (:use :cl :5d-lib.macros)
   (:export
-   :parse-integer*
+   :parse-integer* :sort*
    :range :take :split
    :rev-map
    :remove-at-indices))
-- 
cgit v1.2.3-13-gbd6f