diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-03-02 21:42:33 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-03-02 21:42:33 +0000 |
| commit | 062b5f59d74bda9710c3b532648658a4a7910290 (patch) | |
| tree | ba49a09d0965297cacd4e8cca88f8fe519a415eb | |
| parent | 5f4bfd77bdbf8bb7db6509a60baf584d0a97cdbf (diff) | |
| download | cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.tar.gz cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.tar.bz2 cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.zip | |
Add a reverse argument sort
| -rw-r--r-- | lib/functions.lisp | 3 | ||||
| -rw-r--r-- | packages.lisp | 2 |
2 files changed, 4 insertions, 1 deletions
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)) |