Plaster

(defmethod sort-transactions-by-coin (transactions (product (eql :stickerpicker))) (let ((lists ())) (mapc (lambda (tx) (let* ((info (transaction-information tx)) (coin (getf info :currency2)) (in (intern coin))) (setf (getf lists in) (append (getf lists in) (list tx))))) transactions) lists))