(format t "(boxed-free-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
(defmethod has-callback-cleanup ((type g-boxed-foreign-type))
(format t "(boxed-free-fn ~A ~A)~%" (g-boxed-info-name type-info) native))
(defmethod has-callback-cleanup ((type g-boxed-foreign-type))