search

fukamachi / assoc-utils

Utilities for manipulating association lists.
25 stars 1 forks source link

Use default value in setf-expander #2

Closed knobo closed 6 years ago

knobo commented 6 years ago 
(loop 
   for i in *long-list*
   with sum = nil
   do (if (assoc-utils:aget sum i)
          (incf (assoc-utils:aget sum i))
          (push (cons i 0)  sum))
   finally (return sum))

Would be nicer to be able to write 

(loop 
   for i in *long-list*
   with sum = nil
   do (incf (assoc-utils:aget sum i 0))
   finally (return sum))
fukamachi commented 6 years ago

Sounds reasonable.

knobo commented 6 years ago

4