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 +++
 1 file changed, 3 insertions(+)

(limited to 'lib')

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))
-- 
cgit v1.2.3-13-gbd6f