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

2025-02-11 00:28:48 +00:00
parent de653b67fb
commit ae5cc7141d
1 changed files with 4 additions and 3 deletions
--- a/lib.functions.lisp
+++ b/lib.functions.lisp
@@ -48,8 +48,9 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}."
        :for element :in lst
        :for key = (funcall indicator element)
        :if (assoc key assoc-list :test key-eq)
-          :do (setf (alist-val key assoc-list)
-                    (cons element (alist-val key assoc-list)))
+          :do (->> (alist-val key assoc-list)
+                   (cons element)
+                   (setf (alist-val key assoc-list)))
        :else
-          :do (setq assoc-list (acons key element assoc-list))
+          :do (setq assoc-list (cons (list key element) assoc-list))
        :finally (return assoc-list)))