* (defclass class-a () ())

#<STANDARD-CLASS CLASS-A {583E0B25}>
* (defclass class-b () ())

#<STANDARD-CLASS CLASS-B {583E7F6D}>
* (defgeneric another-fn (obj))

#<STANDARD-GENERIC-FUNCTION ANOTHER-FN (0) {583DA749}>
* (defmethod another-fn ((obj class-a)) :class-a)
; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OBJ):
; Compiling Top-Level Form:

#<STANDARD-METHOD ANOTHER-FN (CLASS-A) {584523C5}>
* (defmethod another-fn ((obj class-b)) :class-b)
; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OBJ):
; Compiling Top-Level Form:

#<STANDARD-METHOD ANOTHER-FN (CLASS-B) {584B8895}>