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}>