Add a reverse argument sort

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))

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))