OTOH, a more idiomatic version would be (and I would consider using the loop facility to be idiomatic): (defun count (pair-list) (let ((hash (make-hash-table))) (loop for (val key) in pair-list do (incf (gethash key…
OTOH, a more idiomatic version would be (and I would consider using the loop facility to be idiomatic): (defun count (pair-list) (let ((hash (make-hash-table))) (loop for (val key) in pair-list do (incf (gethash key…