oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rework rev-map to use ->> and to make LIST cdrs rather than CONS

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-11 00:28:48 +00:00
parent de653b67fb
commit ae5cc7141d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib.functions.lisp
View File

@@ -48,8 +48,9 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}."
:for element :in lst :for element :in lst
:for key = (funcall indicator element) :for key = (funcall indicator element)
:if (assoc key assoc-list :test key-eq) :if (assoc key assoc-list :test key-eq)
:do (setf (alist-val key assoc-list) :do (->> (alist-val key assoc-list)
(cons element (alist-val key assoc-list))) (cons element)
(setf (alist-val key assoc-list)))
:else :else
:do (setq assoc-list (acons key element assoc-list)) :do (setq assoc-list (cons (list key element) assoc-list))
:finally (return assoc-list))) :finally (return assoc-list)))