Parent method isn't called.

[mkamotsu]

If superclass method is defined, it have to be called for subclass instance.

(defclass <parent> () ())

(defclass <child> (<parent>) ())

(defgeneric print-self (obj))

(defmethod print-self ((obj <parent>))
  (format (standard-output) "PARENT:~S~%" (class-of obj)))

(print-self (create (class <parent>)))
;; => PARENT:<class <PARENT>>

(print-self (create (class <child>)))
;; => Expected PARENT:<class <CHILD>>, Not exit matched method at PRINT-SELF (<instance>)

(defmethod print-self ((obj <object>))
  (format (standard-output) "OBJECT:~S~%" (class-of obj)))

(print-self (create (class <parent>)))
;; => PARENT:<class <PARENT>>
(print-self (create (class <child>)))
;; => Expected PARENT:<class <CHILD>>, but OBJECT:<class <CHILD>>.

[sasagawa888]

Thank you for the report. I'll review it thoroughly.

[sasagawa888]

I am investigating it. The method sorting may not be working properly.

[sasagawa888]

Fixed. Thank you.