diff options
| -rw-r--r-- | lib.functions.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib.functions.lisp b/lib.functions.lisp index e3b3180..2e37f79 100644 --- 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))) |