1 2 3 4 5 6 7 8 9
(defpackage #:mulk.protocols (:nicknames #:protocols) (:use #:cl #:c2mop) (:export #:define-protocol #:implement-protocols #:conforms-to-p #:really-conforms-to-p #:protocol-name #:find-protocol))