(deftype test-parent-type (basic)
  ()
  (:methods
    (test-method (_type_) int)
    )
  )

(defmethod test-method test-parent-type ((obj test-parent-type))
  4
  )

(declare-type test-child-type test-parent-type)


(defun test-method-call ((obj test-child-type))
  (test-method obj)
  )



(deftype test-child-type (test-parent-type)
  ()
  )

(defmethod test-method test-child-type ((obj test-child-type))
  12
  )


(format #t "~d ~d~%" 
        (test-method (new 'static 'test-parent-type)) 
        (test-method-call (new 'static 'test-child-type))
        )