ref

test/decompiler/reference/jak2/engine/debug/editable_REF.gc

@@ -776,10 +776,7 @@
        )
       )
     )
-  ((the-as (function editable-point editable-command none) (find-parent-method editable-point 28))
-   obj
-   (the-as editable-command arg0)
-   )
+  (call-parent-method obj arg0)
   0
   (none)
   )
@@ -1107,7 +1104,7 @@
 ;; WARN: Return type mismatch int vs none.
 ;; WARN: Function (method 25 editable-light) has a return type of none, but the expression builder found a return statement.
 (defmethod editable-method-25 editable-light ((obj editable-light) (arg0 editable-array))
-  ((the-as (function editable-light editable-array none) (find-parent-method editable-light 25)) obj arg0)
+  (call-parent-method obj arg0)
   (when (nonzero? (-> obj id))
     (let ((s5-1 (clear *temp-string*)))
       (format s5-1 "delete from light where light_id=~D" (-> obj id))
@@ -1272,7 +1269,7 @@
       (set! (-> s3-0 owner) (delete! obj (-> s3-0 owner)))
       )
     )
-  ((the-as (function editable-face editable-array none) (find-parent-method editable-face 25)) obj arg0)
+  (call-parent-method obj arg0)
   (none)
   )
 
@@ -1302,13 +1299,7 @@
 ;; definition for method 27 of type editable-face
 ;; WARN: Return type mismatch editable-face vs editable.
 (defmethod editable-method-27 editable-face ((obj editable-face) (arg0 editable-array))
-  (let ((gp-1
-          (the-as
-            editable-face
-            ((the-as (function editable-face editable-array editable) (find-parent-method editable-face 27)) obj arg0)
-            )
-          )
-        )
+  (let ((gp-1 (the-as editable-face (call-parent-method obj arg0))))
     (dotimes (s4-0 (-> gp-1 length))
       (set! (-> gp-1 vertex s4-0) (the-as editable-point (editable-method-27 (-> gp-1 vertex s4-0) arg0)))
       (set! (-> gp-1 vertex s4-0 owner) (cons gp-1 (-> gp-1 vertex s4-0 owner)))
@@ -1732,7 +1723,7 @@
       (set! (-> s3-0 owner) (delete! obj (-> s3-0 owner)))
       )
     )
-  ((the-as (function editable-plane editable-array none) (find-parent-method editable-plane 25)) obj arg0)
+  (call-parent-method obj arg0)
   (none)
   )
 
@@ -1746,13 +1737,7 @@
 ;; definition for method 27 of type editable-plane
 ;; WARN: Return type mismatch editable-plane vs editable.
 (defmethod editable-method-27 editable-plane ((obj editable-plane) (arg0 editable-array))
-  (let ((gp-1
-          (the-as
-            editable-plane
-            ((the-as (function editable-plane editable-array editable) (find-parent-method editable-plane 27)) obj arg0)
-            )
-          )
-        )
+  (let ((gp-1 (the-as editable-plane (call-parent-method obj arg0))))
     (dotimes (s4-0 (-> gp-1 length))
       (set! (-> gp-1 vertex s4-0) (the-as editable-point (editable-method-27 (-> gp-1 vertex s4-0) arg0)))
       (set! (-> gp-1 vertex s4-0 owner) (cons gp-1 (-> gp-1 vertex s4-0 owner)))

test/decompiler/reference/jak2/engine/debug/nav/nav-graph-editor_REF.gc

@@ -225,12 +225,8 @@
   )
 
 ;; definition for method 7 of type nav-graph-editor
-;; WARN: Return type mismatch none vs nav-graph-editor.
 (defmethod relocate nav-graph-editor ((obj nav-graph-editor) (arg0 int))
-  (the-as
-    nav-graph-editor
-    ((the-as (function process int none) (find-parent-method nav-graph-editor 7)) obj arg0)
-    )
+  (call-parent-method obj arg0)
   )
 
 ;; definition for method 60 of type nav-graph-editor