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 /lib/functions.lisp | |
| parent | 5f4bfd77bdbf8bb7db6509a60baf584d0a97cdbf (diff) | |
| download | cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.tar.gz cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.tar.bz2 cantedraw-062b5f59d74bda9710c3b532648658a4a7910290.zip | |
Add a reverse argument sort
Diffstat (limited to 'lib/functions.lisp')
| -rw-r--r-- | lib/functions.lisp | 3 |
1 files changed, 3 insertions, 0 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)) |