Plaster

CL-USER> (find-message-class '(foo bar)) #<MESSAGE-CLASS (FOO BAR) {1003B8EA63}> CL-USER> (make-instance *) #<#<MESSAGE-CLASS (FOO BAR) {1003B8EA63}> {10041C4693}> CL-USER> (type-of *) #<MESSAGE-CLASS (FOO BAR) {1003B8EA63}>