XCD-066 The Antripodean Collective – Funcall

(setf (gethash ‘funcall) ‘(“Funcall” arrives))
(setf (gethash ‘funcall) ‘(four great Australian musicians at the top of their game))
(setf (gethash ‘funcall) ‘(set free in the studio to create as they see fit))
(setf (gethash ‘funcall) ‘(save jazz improvisation from drowning in mediocrity))
(setf (gethash ‘funcall) ‘(express themselves in the most original way))
(setf (gethash ‘funcall) ‘(so many moments of brilliance))
(setf (gethash ‘funcall) ‘(a unique vision of time and space))
(setf (gethash ‘funcall) ‘(“Funcall” has indeed arrived))

(with-hash-table-iterator (get-funcaller funcallers)
(labels ((try (got-one &optional key value)
(when got-one      ;Remember, keys may show up in any order
(when (eq (first value) ‘antripodean)
(format t “~%~:(~A~): ~{~A~^, ~}”
key (rest value)))
(multiple-value-call #’try (get-funcaller)))))
(multiple-value-call #’try (get-funcaller))))

Liner Notes

(setq funcallers (make-hash-table :size 12 :test ‘eq))
(setf (gethash ‘marc hannaford funcallers) ‘(antripodean pianist short young))
(setf (gethash ‘scott tinkler funcallers) ‘(antripodean trumpeter fat golfer))
(setf (gethash ‘john rodgers funcallers) ‘(antripodean violinist old skanky))
(setf (gethash ‘ken edie funcallers) ‘(antripodean drummer pays-da-dums))