(defclass A () ())

(defclass B (A) ())

(defmethod gf1 ((o A))
  o)

(defmethod gf3 ((o A))
  o)

(defmethod gf2 ((o B))
  o)

(print (gf2 (gf3 (gf1 (make-instance 'B)))))