LIST-NAMED-CLASS> (defclass (bar baz) () ())
#<LIST-NAMED-CLASS (BAR BAZ)>
LIST-NAMED-CLASS> (defgeneric foo (bar baz) (:method ((bar (bar baz)) (baz (bar baz))) 42))
#<COMMON-LISP:STANDARD-GENERIC-FUNCTION LIST-NAMED-CLASS::FOO (1)>
LIST-NAMED-CLASS> (make-instance '(bar baz))
#<(BAR BAZ) {1017EBA093}>
LIST-NAMED-CLASS> (foo * *)
42