Plaster

common-lisp
(defclass message-class (standard-class) ()) (defmethod print-object ((object message-class) stream) (print-unreadable-object (object stream :type t :identity t) (prin1 (class-name object) stream))) CL-USER> (find-message-class '(foo bar)) #<MESSAGE-CLASS (FOO BAR) {10042DE1D3}> CL-USER> (make-instance *) #<#<MESSAGE-CLASS (FOO BAR) {10042DE1D3}> {10046371A3}>