jak2

goal_src/jak2/engine/ai/enemy.gc

@@ -24,15 +24,11 @@
                                )
   )
 
-;; WARN: Return type mismatch process-focusable vs enemy.
 (defmethod relocate enemy ((this enemy) (arg0 int))
   (if (nonzero? (-> this neck))
       (&+! (-> this neck) arg0)
       )
-  (the-as
-    enemy
-    ((the-as (function process-focusable int process-focusable) (find-parent-method enemy 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod get-rand-float enemy ((this enemy))

goal_src/jak2/engine/ambient/ambient.gc

@@ -259,7 +259,7 @@
 
 (defmethod deactivate talker ((this talker))
   (send-event (handle->process (-> this voicebox)) 'die)
-  ((the-as (function process none) (find-parent-method talker 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/engine/common_objs/collectables.gc

@@ -1231,7 +1231,7 @@
     (if (not (logtest? (-> self fact options) (actor-option no-reaction)))
         (send-event (handle->process arg1) 'powerup (-> self fact pickup-type) (-> self fact pickup-amount))
         )
-    (let ((t9-2 (-> (the-as state (find-parent-method eco 26)) code)))
+    (let ((t9-2 (-> (the-as state (find-parent-state)) code)))
       (if t9-2
           ((the-as (function none) t9-2))
           )
@@ -1668,7 +1668,7 @@ This commonly includes things such as:
 
 (defmethod deactivate gem ((this gem))
   (+! (-> *game-info* live-gem-count) -1)
-  ((the-as (function gem none) (find-parent-method gem 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/engine/common_objs/conveyor.gc

@@ -57,13 +57,9 @@
   )
 
 
-;; WARN: Return type mismatch process-drawable vs conveyor.
 (defmethod relocate conveyor ((this conveyor) (new-addr int))
   (&+! (-> this sections) new-addr)
-  (the-as
-    conveyor
-    ((the-as (function process-drawable int process-drawable) (find-parent-method conveyor 7)) this new-addr)
-    )
+  (call-parent-method this new-addr)
   )
 
 ;; WARN: Return type mismatch symbol vs art-group.

goal_src/jak2/engine/common_objs/elevator.gc

@@ -760,12 +760,11 @@ For example for an elevator pre-compute the distance between the first and last
   (none)
   )
 
-;; WARN: Return type mismatch base-plat vs elevator.
 (defmethod relocate elevator ((this elevator) (arg0 int))
   (if (nonzero? (-> this path-seq))
       (&+! (-> this path-seq) arg0)
       )
-  (the-as elevator ((the-as (function base-plat int base-plat) (find-parent-method elevator 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 (defmethod activate-elevator elevator ((this elevator))

goal_src/jak2/engine/common_objs/rigid-body-plat.gc

@@ -73,18 +73,11 @@
   )
 
 
-;; WARN: Return type mismatch rigid-body-object vs rigid-body-platform.
 (defmethod relocate rigid-body-platform ((this rigid-body-platform) (new-addr int))
   (if (nonzero? (-> this control-point-array))
       (&+! (-> this control-point-array) new-addr)
       )
-  (the-as
-    rigid-body-platform
-    ((the-as (function rigid-body-object int rigid-body-object) (find-parent-method rigid-body-platform 7))
-     this
-     new-addr
-     )
-    )
+  (call-parent-method this new-addr)
   )
 
 (defmethod rigid-body-platform-method-53 rigid-body-platform ((this rigid-body-platform) (arg0 vector))

goal_src/jak2/engine/common_objs/water-anim.gc

@@ -45,7 +45,7 @@
   (if (nonzero? (-> this flow))
       (&+! (-> this flow) arg0)
       )
-  ((the-as (function water-anim int water-anim) (find-parent-method water-anim 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defskelgroup skel-water-anim-nest-dark-eco-largepool water-anim-nest-dark-eco water-anim-nest-dark-eco-largepool-lod0-jg -1

goal_src/jak2/engine/common_objs/water-flow.gc

@@ -68,7 +68,7 @@
   (if (nonzero? (-> this path))
       (&+! (-> this path) arg0)
       )
-  ((the-as (function flow-control int flow-control) (find-parent-method flow-control 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod draw-path flow-control ((this flow-control))

goal_src/jak2/engine/debug/editable.gc

@@ -736,10 +736,7 @@
        )
       )
     )
-  ((the-as (function editable-point editable-command none) (find-parent-method editable-point 28))
-   this
-   (the-as editable-command arg0)
-   )
+  (call-parent-method this arg0)
   0
   (none)
   )
@@ -1038,7 +1035,7 @@
 
 ;; 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 ((this editable-light) (arg0 editable-array))
-  ((the-as (function editable-light editable-array none) (find-parent-method editable-light 25)) this arg0)
+  (call-parent-method this arg0)
   (when (nonzero? (-> this id))
     (let ((s5-1 (clear *temp-string*)))
       (format s5-1 "delete from light where light_id=~D" (-> this id))
@@ -1203,7 +1200,7 @@
       (set! (-> s3-0 owner) (delete! this (-> s3-0 owner)))
       )
     )
-  ((the-as (function editable-face editable-array none) (find-parent-method editable-face 25)) this arg0)
+  (call-parent-method this arg0)
   (none)
   )
 
@@ -1231,13 +1228,7 @@
 
 ;; WARN: Return type mismatch editable-face vs editable.
 (defmethod editable-method-27 editable-face ((this 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)) this arg0)
-            )
-          )
-        )
+  (let ((gp-1 (the-as editable-face (call-parent-method this 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)))

goal_src/jak2/engine/debug/nav/nav-graph-editor.gc

@@ -162,12 +162,8 @@
   (none)
   )
 
-;; WARN: Return type mismatch none vs nav-graph-editor.
 (defmethod relocate nav-graph-editor ((this nav-graph-editor) (arg0 int))
-  (the-as
-    nav-graph-editor
-    ((the-as (function process int none) (find-parent-method nav-graph-editor 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch symbol vs none.

goal_src/jak2/engine/game/task/task-control.gc

@@ -1683,7 +1683,6 @@
     )
   )
 
-;; WARN: Return type mismatch process vs none.
 (defmethod deactivate fail-mission ((this fail-mission))
   (set-filter-color! 1.0 1.0 1.0)
   (sound-group-continue (sound-group sfx music dialog sog3 ambient dialog2 sog6 sog7))
@@ -1691,7 +1690,7 @@
   (update-rates! (-> *display* entity-clock) 1.0)
   (update-rates! (-> *display* target-clock) 1.0)
   (update-rates! (-> *display* camera-clock) 1.0)
-  ((the-as (function process process) (find-parent-method fail-mission 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/engine/spatial-hash/spatial-hash.gc

@@ -735,7 +735,7 @@
 
 (defmethod dump-grid-info sphere-hash ((this sphere-hash))
   "Prints out info about the grid-hash, also draws via [[grid-hash::draw-grid]] if `debug-draw` is `#t`"
-  ((the (function sphere-hash none) (find-parent-method sphere-hash 15)) this)
+  (call-parent-method this)
   (new 'stack-no-clear 'vector)
   (let ((f30-0 6144.0))
     (set! (-> this work temp-box-min quad) (-> (target-pos 0) quad))

goal_src/jak2/engine/target/logic-target.gc

@@ -3310,7 +3310,7 @@
       )
   (set! (-> *setting-control* cam-default mode-name) #f)
   (set-zero! *camera-smush-control*)
-  ((the-as (function target none) (find-parent-method target 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/engine/ui/progress/progress.gc

@@ -54,7 +54,7 @@
    (stereo-mode-backup                   int32          :offset-assert 216)
    (secrets-unlocked                     symbol         :offset-assert 220)
    (missions-total-spacing               float          :offset-assert 224)
-   (clear-screen                         symbol          :offset-assert 228)
+   (clear-screen                         symbol         :offset-assert 228)
    )
   :method-count-assert 9
   :size-assert         #xe8
@@ -470,7 +470,7 @@
   (enable-level-text-file-loading)
   (persist-with-delay *setting-control* 'allow-progress (seconds 0.1) 'allow-progress #f 0.0 0)
   (persist-with-delay *setting-control* 'allow-pause (seconds 0.1) 'allow-pause #f 0.0 0)
-  ((the-as (function progress none) (find-parent-method progress 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/atoll/atoll-obs.gc

@@ -805,21 +805,17 @@ This commonly includes things such as:
 
 (defmethod deactivate slider ((this slider))
   (sound-stop (the-as sound-id (-> this sound-id)))
-  ((the-as (function process-drawable none) (find-parent-method slider 10)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs slider.
 (defmethod relocate slider ((this slider) (arg0 int))
   (dotimes (v1-0 4)
     (if (nonzero? (-> this l-bolts v1-0))
         (&+! (-> this l-bolts v1-0) arg0)
         )
     )
-  (the-as
-    slider
-    ((the-as (function process-drawable int process-drawable) (find-parent-method slider 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/atoll/juicer.gc

@@ -1738,7 +1738,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs juicer.
 (defmethod relocate juicer ((this juicer) (arg0 int))
   (if (nonzero? (-> this intro-path))
       (&+! (-> this intro-path) arg0)
@@ -1746,10 +1745,7 @@
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
       )
-  (the-as
-    juicer
-    ((the-as (function process-focusable int process-focusable) (find-parent-method juicer 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! juicer ((this juicer))

goal_src/jak2/levels/castle/boss/castle-baron.gc

@@ -110,7 +110,7 @@ This commonly includes things such as:
 
 (defmethod deactivate cboss-elevator ((this cboss-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method cboss-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1353,7 +1353,7 @@ For example for an elevator pre-compute the distance between the first and last
 
 (defmethod init-proj-settings! krew-boss-shot ((this krew-boss-shot))
   "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
-  ((the-as (function projectile none) (find-parent-method krew-boss-shot 31)) this)
+  (call-parent-method this)
   (set! (-> this move) krew-boss-shot-move)
   (set! (-> this max-speed) 245760.0)
   (set! (-> this timeout) (seconds 5))

goal_src/jak2/levels/castle/castle-obs.gc

@@ -79,7 +79,7 @@ This commonly includes things such as:
 
 (defmethod deactivate cas-conveyor ((this cas-conveyor))
   (sound-stop (-> this sound-id))
-  ((the-as (function conveyor none) (find-parent-method cas-conveyor 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -935,7 +935,7 @@ This commonly includes things such as:
 
 (defmethod deactivate cas-elevator ((this cas-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function elevator none) (find-parent-method cas-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1987,7 +1987,7 @@ This commonly includes things such as:
 
 (defmethod deactivate cas-rot-blade ((this cas-rot-blade))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method cas-rot-blade 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/castle/pad/caspad-obs.gc

@@ -152,7 +152,7 @@
 
 (defmethod deactivate cpad-elevator ((this cpad-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function elevator none) (find-parent-method cpad-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/castle/roboguard-level.gc

@@ -334,9 +334,9 @@
 (defstate ambush (roboguard-level)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method roboguard-level 44)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
-          ((the-as (function none) t9-1))
+          (t9-1)
           )
       )
     (logand! (-> self flags) -9)
@@ -402,9 +402,9 @@
 (defstate idle (roboguard-level)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method roboguard-level 31)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
-          ((the-as (function none) t9-1))
+          (t9-1)
           )
       )
     (roboguard-level-method-185 self (the-as symbol 0))
@@ -490,9 +490,9 @@
 (defstate stare (roboguard-level)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method roboguard-level 35)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
-          ((the-as (function none) t9-1))
+          (t9-1)
           )
       )
     (roboguard-level-method-185 self (the-as symbol 0))
@@ -753,9 +753,9 @@
 (defstate die (roboguard-level)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method roboguard-level 38)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
-          ((the-as (function none) t9-1))
+          (t9-1)
           )
       )
     (roboguard-level-method-185 self (the-as symbol 0))
@@ -1186,16 +1186,12 @@
 
 (defmethod deactivate roboguard-level ((this roboguard-level))
   (sound-stop (-> this roll-sound))
-  ((the-as (function nav-enemy none) (find-parent-method roboguard-level 10)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch nav-enemy vs roboguard-level.
 (defmethod relocate roboguard-level ((this roboguard-level) (arg0 int))
-  (the-as
-    roboguard-level
-    ((the-as (function nav-enemy int nav-enemy) (find-parent-method roboguard-level 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy-collision! roboguard-level ((this roboguard-level))

goal_src/jak2/levels/city/bombbot/bombbot.gc

@@ -2163,7 +2163,6 @@
     )
   )
 
-;; WARN: Return type mismatch nav-enemy vs bombbot.
 (defmethod relocate bombbot ((this bombbot) (arg0 int))
   (dotimes (v1-0 4)
     (if (nonzero? (-> this joint-ik v1-0))
@@ -2173,7 +2172,7 @@
   (if (nonzero? (-> this rigidbody))
       (&+! (-> this rigidbody) arg0)
       )
-  (the-as bombbot ((the-as (function nav-enemy int nav-enemy) (find-parent-method bombbot 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy-collision! bombbot ((this bombbot))

goal_src/jak2/levels/city/ctywide-obs.gc

@@ -2019,7 +2019,6 @@ This commonly includes things such as:
     )
   )
 
-;; WARN: Return type mismatch process-focusable vs cty-guard-turret.
 (defmethod relocate cty-guard-turret ((this cty-guard-turret) (arg0 int))
   (if (nonzero? (-> this jm-turret))
       (&+! (-> this jm-turret) arg0)
@@ -2030,13 +2029,7 @@ This commonly includes things such as:
   (if (nonzero? (-> this jm-gunsR))
       (&+! (-> this jm-gunsR) arg0)
       )
-  (the-as
-    cty-guard-turret
-    ((the-as (function process-focusable int process-focusable) (find-parent-method cty-guard-turret 7))
-     this
-     arg0
-     )
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod cty-guard-turret-method-32 cty-guard-turret ((this cty-guard-turret))
@@ -3927,7 +3920,6 @@ This commonly includes things such as:
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs barons-ship-lores.
 (defmethod relocate barons-ship-lores ((this barons-ship-lores) (arg0 int))
   (if (nonzero? (-> this paths 0))
       (&+! (-> this paths 0) arg0)
@@ -3938,10 +3930,7 @@ This commonly includes things such as:
   (if (nonzero? (-> this paths 2))
       (&+! (-> this paths 2) arg0)
       )
-  (the-as
-    barons-ship-lores
-    ((the-as (function process-drawable int process-drawable) (find-parent-method barons-ship-lores 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defstate idle (barons-ship-lores)

goal_src/jak2/levels/city/traffic/citizen/guard.gc

@@ -3705,7 +3705,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs crimson-guard.
 (defmethod relocate crimson-guard ((this crimson-guard) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
@@ -3713,10 +3712,7 @@
   (if (nonzero? (-> this l-control))
       (&+! (-> this l-control) arg0)
       )
-  (the-as
-    crimson-guard
-    ((the-as (function process-drawable int process-drawable) (find-parent-method crimson-guard 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! crimson-guard ((this crimson-guard))

goal_src/jak2/levels/city/traffic/citizen/metalhead-predator.gc

@@ -1096,15 +1096,8 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs metalhead-predator.
 (defmethod relocate metalhead-predator ((this metalhead-predator) (arg0 int))
-  (the-as
-    metalhead-predator
-    ((the-as (function process-drawable int process-drawable) (find-parent-method metalhead-predator 7))
-     this
-     arg0
-     )
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! metalhead-predator ((this metalhead-predator))

goal_src/jak2/levels/city/traffic/vehicle/bike.gc

@@ -920,7 +920,7 @@
 
 
 (defmethod do-engine-sounds bike-base ((this bike-base))
-  ((the-as (function object none) (find-parent-method bike-base 36)) this)
+  (call-parent-method this)
   (when (logtest? (-> this flags) (rigid-body-object-flag player-driving))
     (if (zero? (-> this roll-sound-id))
         (set! (-> this roll-sound-id) (new-sound-id))
@@ -952,7 +952,7 @@
   )
 
 (defmethod draw-thrusters bike-base ((this bike-base))
-  ((the-as (function object none) (find-parent-method bike-base 85)) this)
+  (call-parent-method this)
   (when (logtest? (-> this rbody state flags) (rigid-body-flag enable-physics))
     (let ((s5-0 (new 'stack-no-clear 'inline-array 'matrix 3)))
       (let* ((v1-4 (the-as object (-> s5-0 0 vector 2)))
@@ -1047,7 +1047,7 @@
   (if (nonzero? (-> this brake-r))
       (&+! (-> this brake-r) arg0)
       )
-  ((the-as (function object int bikea) (find-parent-method bikea 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape bikea ((this bikea))
@@ -1181,7 +1181,7 @@
   (if (nonzero? (-> this flap-r))
       (&+! (-> this flap-r) arg0)
       )
-  ((the-as (function object int bikeb) (find-parent-method bikeb 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape bikeb ((this bikeb))
@@ -1329,7 +1329,7 @@
   (if (nonzero? (-> this spoiler-r))
       (&+! (-> this spoiler-r) arg0)
       )
-  ((the-as (function object int bikec) (find-parent-method bikec 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape bikec ((this bikec))
@@ -1464,7 +1464,7 @@
   (if (nonzero? (-> this turret-jm))
       (&+! (-> this turret-jm) arg0)
       )
-  ((the-as (function object int guard-bike) (find-parent-method guard-bike 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod start-jump guard-bike ((this guard-bike))

goal_src/jak2/levels/city/traffic/vehicle/car.gc

@@ -1170,7 +1170,7 @@
   (if (nonzero? (-> this rudder-r))
       (&+! (-> this rudder-r) arg0)
       )
-  ((the-as (function object object cara) (find-parent-method cara 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape cara ((this cara))
@@ -1310,7 +1310,7 @@
   (if (nonzero? (-> this fin-rr))
       (&+! (-> this fin-rr) arg0)
       )
-  ((the-as (function object object carb) (find-parent-method carb 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape carb ((this carb))
@@ -1427,7 +1427,6 @@
   )
 
 
-;; WARN: Return type mismatch carb vs carc.
 (defmethod relocate carc ((this carc) (arg0 int))
   (if (nonzero? (-> this steering-wheel))
       (&+! (-> this steering-wheel) arg0)
@@ -1450,7 +1449,7 @@
   (if (nonzero? (-> this fin2-rr))
       (&+! (-> this fin2-rr) arg0)
       )
-  (the-as carc ((the-as (function object object carb) (find-parent-method carc 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape carc ((this carc))
@@ -1583,7 +1582,7 @@
   (if (nonzero? (-> this turret-jm))
       (&+! (-> this turret-jm) arg0)
       )
-  ((the-as (function object object hellcat) (find-parent-method hellcat 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 (defmethod allocate-and-init-cshape hellcat ((this hellcat))

goal_src/jak2/levels/city/traffic/vehicle/transport.gc

@@ -117,15 +117,11 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs vehicle-turret.
 (defmethod relocate vehicle-turret ((this vehicle-turret) (arg0 int))
   (if (nonzero? (-> this turret-jm))
       (&+! (-> this turret-jm) arg0)
       )
-  (the-as
-    vehicle-turret
-    ((the-as (function process-drawable int process-drawable) (find-parent-method vehicle-turret 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod vehicle-turret-method-30 vehicle-turret ((this vehicle-turret))
@@ -271,7 +267,7 @@
 
 (defmethod deactivate transport ((this transport))
   (sound-stop (-> this ambient-sound-id))
-  ((the-as (function process-drawable none) (find-parent-method transport 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/city/traffic/vehicle/vehicle-rider.gc

@@ -295,7 +295,7 @@ This commonly includes things such as:
               )
 
 (defmethod vehicle-rider-method-33 citizen-norm-rider ((this citizen-norm-rider))
-  ((the-as (function vehicle-rider none) (find-parent-method citizen-norm-rider 33)) this)
+  (call-parent-method this)
   (setup-masks (-> this draw) 0 -1)
   (setup-masks (-> this draw) 32 0)
   (cond
@@ -394,7 +394,7 @@ This commonly includes things such as:
               )
 
 (defmethod vehicle-rider-method-33 crimson-guard-rider ((this crimson-guard-rider))
-  ((the-as (function vehicle-rider none) (find-parent-method crimson-guard-rider 33)) this)
+  (call-parent-method this)
   (setup-masks (-> this draw) 0 28)
   (setup-masks (-> this draw) 3 0)
   (if (logtest? (-> this flags) 4)

goal_src/jak2/levels/city/traffic/vehicle/vehicle-util.gc

@@ -152,7 +152,7 @@
 
 (defmethod deactivate vehicle ((this vehicle))
   (vehicle-method-110 this)
-  ((the-as (function rigid-body-object none) (find-parent-method vehicle 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/ai/ashelin/ash-shot.gc

@@ -369,7 +369,7 @@
        (sound-play "ashelin-shot-hi")
        )
       ((= v1-0 (projectile-options lose-altitude proj-options-2))
-       ((the-as (function projectile projectile-options none) (find-parent-method ashelin-shot 28)) this arg0)
+       (call-parent-method this arg0)
        )
       )
     )

goal_src/jak2/levels/common/battle.gc

@@ -1159,7 +1159,7 @@
         (when (handle->process v0-7)
           (set! (-> arg0 creature) v0-7)
           (set! (-> arg0 mode) (the-as uint 1))
-          (set! (-> arg0 last-spawn-time) (current-time))
+          (set-time! (-> arg0 last-spawn-time))
           )
         )
       )
@@ -1197,10 +1197,10 @@
     (let ((v1-5 (-> arg0 noticed-attack-time)))
       (cond
         ((zero? v1-5)
-         (set! (-> arg0 noticed-attack-time) (current-time))
+         (set-time! (-> arg0 noticed-attack-time))
          )
         (else
-          (if (>= (- (current-time) v1-5) (the-as time-frame (-> arg0 notice-attack-delay)))
+          (if (time-elapsed? v1-5 (the-as time-frame (-> arg0 notice-attack-delay)))
               (logior! (-> arg0 flags) (battle-spawner-flags hit))
               )
           )
@@ -1387,7 +1387,7 @@
   :virtual #t
   :event battle-event-handler
   :enter (behavior ()
-    (set! (-> self state-time) (current-time))
+    (set-time! (-> self state-time))
     (let ((gp-0 (-> self on-notice)))
       (if gp-0
           (script-eval (the-as pair gp-0) :vector (-> self root trans))
@@ -1467,10 +1467,10 @@
          (let ((a1-14 (-> this jammed-starting-time)))
            (cond
              ((zero? (-> this jammed-starting-time))
-              (set! (-> this jammed-starting-time) (current-time))
+              (set-time! (-> this jammed-starting-time))
               )
              (else
-               (if (>= (- (current-time) a1-14) (seconds 3.5))
+               (if (time-elapsed? a1-14 (seconds 3.5))
                    (logior! (-> this flags) (battle-flags no-spawner-block))
                    )
                )
@@ -1488,23 +1488,23 @@
               (< a0-4 (the-as int (-> this info desired-alive-count)))
               (< (-> this count) v1-4)
               )
-         (when (>= (- (current-time) (-> this cant-spawn-time)) (the-as time-frame (-> this next-spawn-delay)))
+         (when (time-elapsed? (-> this cant-spawn-time) (the-as time-frame (-> this next-spawn-delay)))
            (let ((a1-29 (get-best-spawner this)))
              (cond
                (a1-29
                  (spawn-from-spawner this a1-29 #f)
                  (set! (-> this next-spawn-delay) (the-as uint (get-spawn-delay this)))
-                 (set! (-> this cant-spawn-time) (current-time))
+                 (set-time! (-> this cant-spawn-time))
                  )
                (else
-                 (set! (-> this cant-spawn-time) (current-time))
+                 (set-time! (-> this cant-spawn-time))
                  )
                )
              )
            )
          )
         (else
-          (set! (-> this cant-spawn-time) (current-time))
+          (set-time! (-> this cant-spawn-time))
           )
         )
       )
@@ -1516,7 +1516,7 @@
   :virtual #t
   :event battle-event-handler
   :enter (behavior ()
-    (set! (-> self state-time) (current-time))
+    (set-time! (-> self state-time))
     (logior! (-> self flags) (battle-flags active))
     (logclear! (-> self flags) (battle-flags no-spawner-block))
     (set! (-> self jammed-starting-time) 0)
@@ -1594,14 +1594,10 @@
   this
   )
 
-;; WARN: Return type mismatch process-drawable vs battle.
 (defmethod relocate battle ((this battle) (arg0 int))
   (&+! (-> this spawners) arg0)
   (&+! (-> this allies) arg0)
-  (the-as
-    battle
-    ((the-as (function process-drawable int process-drawable) (find-parent-method battle 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod initialize-spawner-breeds battle ((this battle) (arg0 battle-spawner) (arg1 entity-actor))

goal_src/jak2/levels/common/elec-gate.gc

@@ -762,7 +762,7 @@
 
 (defmethod deactivate elec-gate ((this elec-gate))
   (set-elec-scale-if-close! this 0.0)
-  ((the-as (function process-drawable none) (find-parent-method elec-gate 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/enemy/centurion.gc

@@ -160,7 +160,7 @@
        (sound-play "cent-shot-hit")
        )
       ((= v1-0 (projectile-options lose-altitude proj-options-2))
-       ((the-as (function projectile projectile-options sound-id) (find-parent-method centurion-shot 28)) this arg0)
+       (call-parent-method this arg0)
        )
       )
     )
@@ -170,7 +170,7 @@
 
 (defmethod init-proj-settings! centurion-shot ((this centurion-shot))
   "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
-  ((the-as (function projectile none) (find-parent-method centurion-shot 31)) this)
+  (call-parent-method this)
   (set! (-> this max-speed) 327680.0)
   (set! (-> this timeout) (seconds 1.25))
   (none)
@@ -887,7 +887,7 @@
 (defmethod dispose! centurion ((this centurion))
   "Cleans-up the enemy and any associated resources. Potentially spawns skull gems"
   (play-communicator-speech! (-> *talker-speech* 58))
-  ((the-as (function enemy none) (find-parent-method centurion 132)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1486,15 +1486,11 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs centurion.
 (defmethod relocate centurion ((this centurion) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
       )
-  (the-as
-    centurion
-    ((the-as (function process-focusable int process-focusable) (find-parent-method centurion 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! centurion ((this centurion))

goal_src/jak2/levels/common/enemy/flitter.gc

@@ -1248,7 +1248,7 @@
     (logior! (-> this minimap flags) (minimap-flag fade-out))
     (set! (-> this minimap) #f)
     )
-  ((the-as (function nav-enemy none) (find-parent-method flitter 132)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/enemy/fodder/fodder.gc

@@ -1032,7 +1032,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch nav-enemy vs fodder.
 (defmethod relocate fodder ((this fodder) (arg0 int))
   (if (nonzero? (-> this left-eye))
       (&+! (-> this left-eye) arg0)
@@ -1040,7 +1039,7 @@
   (if (nonzero? (-> this right-eye))
       (&+! (-> this right-eye) arg0)
       )
-  (the-as fodder ((the-as (function nav-enemy int nav-enemy) (find-parent-method fodder 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 (defun fodder-setup-eye-control ((arg0 joint-mod))

goal_src/jak2/levels/common/enemy/grenadier.gc

@@ -1245,7 +1245,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs grenadier.
 (defmethod relocate grenadier ((this grenadier) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
@@ -1255,10 +1254,7 @@
         (&+! (-> this hostile-path) arg0)
         )
     )
-  (the-as
-    grenadier
-    ((the-as (function process-focusable int process-focusable) (find-parent-method grenadier 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! grenadier ((this grenadier))

goal_src/jak2/levels/common/enemy/grunt.gc

@@ -1409,7 +1409,7 @@
     (logior! (-> this minimap flags) (minimap-flag fade-out))
     (set! (-> this minimap) #f)
     )
-  ((the-as (function nav-enemy none) (find-parent-method grunt 132)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/enemy/guards/crimson-guard-level.gc

@@ -4151,7 +4151,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch nav-enemy vs crimson-guard-level.
 (defmethod relocate crimson-guard-level ((this crimson-guard-level) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
@@ -4159,10 +4158,7 @@
   (if (nonzero? (-> this l-control))
       (&+! (-> this l-control) arg0)
       )
-  (the-as
-    crimson-guard-level
-    ((the-as (function nav-enemy int nav-enemy) (find-parent-method crimson-guard-level 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch float vs none.

goal_src/jak2/levels/common/enemy/hopper.gc

@@ -919,19 +919,15 @@
     (logior! (-> this minimap flags) (minimap-flag fade-out))
     (set! (-> this minimap) #f)
     )
-  ((the-as (function enemy none) (find-parent-method hopper 132)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs hopper.
 (defmethod relocate hopper ((this hopper) (arg0 int))
   (if (nonzero? (-> this path-intro))
       (&+! (-> this path-intro) arg0)
       )
-  (the-as
-    hopper
-    ((the-as (function process-focusable int process-focusable) (find-parent-method hopper 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy-collision! hopper ((this hopper))

goal_src/jak2/levels/common/enemy/hover/crimson-guard-hover.gc

@@ -593,7 +593,7 @@
 (defmethod enemy-method-135 crimson-guard-hover ((this crimson-guard-hover) (arg0 int))
   (if (and (zero? arg0) (logtest? #x4000000 (-> this incoming penetrate-using)))
       (sound-play "hover-take-hit")
-      ((the-as (function enemy int sound-id) (find-parent-method crimson-guard-hover 135)) this arg0)
+      (call-parent-method this arg0)
       )
   (the-as sound-id 0)
   )
@@ -913,7 +913,7 @@
 (defstate knocked (crimson-guard-hover)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as (state hover-enemy) (find-parent-method crimson-guard-hover 30)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
           (t9-1)
           )
@@ -987,7 +987,7 @@
 (defstate flying-death (crimson-guard-hover)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as (state hover-enemy) (find-parent-method crimson-guard-hover 138)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
           (t9-1)
           )
@@ -1048,7 +1048,7 @@
 (defstate flying-death-explode (crimson-guard-hover)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as (state hover-enemy) (find-parent-method crimson-guard-hover 139)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
           (t9-1)
           )
@@ -1144,16 +1144,7 @@
              )
          )
        )
-     ((the-as
-        (function enemy process int symbol event-message-block object)
-        (find-parent-method crimson-guard-hover 74)
-        )
-      this
-      arg0
-      arg1
-      arg2
-      arg3
-      )
+     (call-parent-method this arg0 arg1 arg2 arg3)
      )
     (('notify)
      (let ((a0-27 (the-as object (-> arg3 param 0)))
@@ -1173,28 +1164,10 @@
            )
          )
        )
-     ((the-as
-        (function enemy process int symbol event-message-block object)
-        (find-parent-method crimson-guard-hover 74)
-        )
-      this
-      arg0
-      arg1
-      arg2
-      arg3
-      )
+     (call-parent-method this arg0 arg1 arg2 arg3)
      )
     (else
-      ((the-as
-         (function enemy process int symbol event-message-block object)
-         (find-parent-method crimson-guard-hover 74)
-         )
-       this
-       arg0
-       arg1
-       arg2
-       arg3
-       )
+      (call-parent-method this arg0 arg1 arg2 arg3)
       )
     )
   )
@@ -1289,7 +1262,7 @@
          )
        )
       (else
-        ((the-as (function hover-enemy vector none) (find-parent-method crimson-guard-hover 52)) this arg0)
+        (call-parent-method this arg0)
         )
       )
     )

goal_src/jak2/levels/common/enemy/hover/flamer.gc

@@ -1395,15 +1395,11 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs flamer.
 (defmethod relocate flamer ((this flamer) (arg0 int))
   (if (nonzero? (-> this flit-joint))
       (&+! (-> this flit-joint) arg0)
       )
-  (the-as
-    flamer
-    ((the-as (function process-drawable int process-drawable) (find-parent-method flamer 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! flamer ((this flamer))

goal_src/jak2/levels/common/enemy/hover/hover-enemy-battle.gc

@@ -247,7 +247,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process vs hover-enemy-manager.
 (defmethod relocate hover-enemy-manager ((this hover-enemy-manager) (arg0 int))
   (when (-> this formation)
     (if (nonzero? (-> this formation))
@@ -257,10 +256,7 @@
   (if (nonzero? (-> this path))
       (&+! (-> this path) arg0)
       )
-  (the-as
-    hover-enemy-manager
-    ((the-as (function process int process) (find-parent-method hover-enemy-manager 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod hover-enemy-manager-init! hover-enemy-manager ((this hover-enemy-manager) (arg0 (array hover-enemy-battle-command)))

goal_src/jak2/levels/common/enemy/hover/hover-enemy.gc

@@ -605,7 +605,7 @@
     (set! (-> self knocked-start-level) (-> self root trans y))
     )
   :exit (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method hover-enemy 30)) exit)))
+    (let ((t9-1 (-> (the-as state (find-parent-state)) exit)))
       (if t9-1
           (t9-1)
           )

goal_src/jak2/levels/common/enemy/hover/hover-formation.gc

@@ -648,7 +648,6 @@
     )
   )
 
-;; WARN: Return type mismatch basic vs hover-formation.
 (defmethod relocate hover-formation ((this hover-formation) (arg0 int))
   (if (nonzero? (-> this formation))
       (&+! (-> this formation) arg0)
@@ -656,10 +655,7 @@
   (if (nonzero? (-> this path))
       (&+! (-> this path) arg0)
       )
-  (the-as
-    hover-formation
-    ((the-as (function basic int basic) (find-parent-method hover-formation 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod hover-formation-method-15 hover-formation ((this hover-formation) (arg0 vector) (arg1 vector))

goal_src/jak2/levels/common/enemy/hover/wasp.gc

@@ -500,7 +500,7 @@
          )
        )
       (else
-        ((the-as (function enemy vector none) (find-parent-method wasp 52)) this arg0)
+        (call-parent-method this arg0)
         )
       )
     )

goal_src/jak2/levels/common/enemy/metalmonk.gc

@@ -1150,15 +1150,11 @@
   #f
   )
 
-;; WARN: Return type mismatch process-focusable vs metalmonk.
 (defmethod relocate metalmonk ((this metalmonk) (arg0 int))
   (if (nonzero? (-> this intro-path))
       (&+! (-> this intro-path) arg0)
       )
-  (the-as
-    metalmonk
-    ((the-as (function process-focusable int process-focusable) (find-parent-method metalmonk 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! metalmonk ((this metalmonk))

goal_src/jak2/levels/common/enemy/spyder.gc

@@ -45,7 +45,7 @@
 
 (defmethod init-proj-settings! spyder-shot ((this spyder-shot))
   "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
-  ((the-as (function projectile none) (find-parent-method spyder-shot 31)) this)
+  (call-parent-method this)
   (set! (-> this max-speed) 307200.0)
   (set! (-> this timeout) (seconds 0.267))
   (none)
@@ -1304,7 +1304,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs spyder.
 (defmethod relocate spyder ((this spyder) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
@@ -1314,10 +1313,7 @@
         (&+! (-> this joint-ik v1-4) arg0)
         )
     )
-  (the-as
-    spyder
-    ((the-as (function process-focusable int process-focusable) (find-parent-method spyder 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! spyder ((this spyder))

goal_src/jak2/levels/common/entities/com-elevator.gc

@@ -97,9 +97,9 @@
 (defstate dormant (com-elevator)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method com-elevator 34)) enter)))
+    (let ((t9-1 (-> (find-parent-state) enter)))
       (if t9-1
-          ((the-as (function none) t9-1))
+          (t9-1)
           )
       )
     (process-entity-status! self (entity-perm-status subtask-complete) #t)
@@ -179,7 +179,7 @@
 
 (defmethod deactivate com-elevator ((this com-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function elevator none) (find-parent-method com-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -312,7 +312,7 @@ For example for an elevator pre-compute the distance between the first and last
 
 (defmethod deactivate tomb-trans-elevator ((this tomb-trans-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function com-elevator none) (find-parent-method tomb-trans-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -320,7 +320,7 @@ For example for an elevator pre-compute the distance between the first and last
 (defmethod init-plat! tomb-trans-elevator ((this tomb-trans-elevator))
   "Does any necessary initial platform setup.
 For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound."
-  ((the-as (function com-elevator none) (find-parent-method tomb-trans-elevator 33)) this)
+  (call-parent-method this)
   (set! (-> this sound-id) (new-sound-id))
   (none)
   )

goal_src/jak2/levels/common/entities/spydroid.gc

@@ -1304,7 +1304,7 @@
   (if (nonzero? (-> this explode-part))
       (kill-and-free-particles (-> this explode-part))
       )
-  ((the-as (function process-focusable none) (find-parent-method spydroid 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/race/race-manager.gc

@@ -1566,7 +1566,7 @@
 (defmethod deactivate race-manager ((this race-manager))
   (persist-with-delay *setting-control* 'music-volume (seconds 3) 'music-volume 'abs 0.0 0)
   (send-event *traffic-manager* 'restore-default-settings)
-  ((the-as (function process none) (find-parent-method race-manager 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/common/scene-actor.gc

@@ -688,7 +688,7 @@ This commonly includes things such as:
        )
      )
     )
-  ((the-as (function process-taskable none) (find-parent-method youngsamos-npc 32)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/dig/dig-obs.gc

@@ -30,7 +30,7 @@
               )
 
 (defmethod rigid-body-object-method-29 dig-sinking-plat ((this dig-sinking-plat) (arg0 float))
-  ((the-as (function rigid-body-platform float none) (find-parent-method dig-sinking-plat 29)) this arg0)
+  (call-parent-method this arg0)
   (rigid-body-platform-method-56 this (-> this anchor-point))
   0
   (none)

goal_src/jak2/levels/dig/dig3-obs.gc

@@ -1403,7 +1403,7 @@ This commonly includes things such as:
   )
 
 (defmethod rigid-body-object-method-29 dig-tipping-rock ((this dig-tipping-rock) (arg0 float))
-  ((the-as (function rigid-body-platform float none) (find-parent-method dig-tipping-rock 29)) this arg0)
+  (call-parent-method this arg0)
   (rigid-body-platform-method-56 this (-> this anchor-point))
   0
   (none)

goal_src/jak2/levels/drill/drill-baron.gc

@@ -977,7 +977,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs drill-barons-ship-turret.
 (defmethod relocate drill-barons-ship-turret ((this drill-barons-ship-turret) (arg0 int))
   (when (-> this jmod)
     (if (nonzero? (-> this jmod))
@@ -994,13 +993,7 @@
         (&+! (-> this jmod-right) arg0)
         )
     )
-  (the-as
-    drill-barons-ship-turret
-    ((the-as (function process-drawable int process-drawable) (find-parent-method drill-barons-ship-turret 7))
-     this
-     arg0
-     )
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.
@@ -1122,7 +1115,7 @@ This commonly includes things such as:
 
 (defmethod init-proj-settings! drill-ship-shot ((this drill-ship-shot))
   "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
-  ((the-as (function guard-shot none) (find-parent-method drill-ship-shot 31)) this)
+  (call-parent-method this)
   (set! (-> this attack-mode) 'drill-ship-shot)
   (set! (-> this move) guard-shot-move)
   (set! (-> this max-speed) 737280.0)

goal_src/jak2/levels/drill/drill-obs.gc

@@ -460,7 +460,7 @@ This commonly includes things such as:
 
 (defmethod deactivate drill-elevator ((this drill-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method drill-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -809,15 +809,11 @@ For example for an elevator pre-compute the distance between the first and last
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs fire-floor.
 (defmethod relocate fire-floor ((this fire-floor) (arg0 int))
   (if (nonzero? (-> this part-off))
       (&+! (-> this part-off) arg0)
       )
-  (the-as
-    fire-floor
-    ((the-as (function process-drawable int process-drawable) (find-parent-method fire-floor 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod deactivate fire-floor ((this fire-floor))
@@ -825,7 +821,7 @@ For example for an elevator pre-compute the distance between the first and last
   (if (nonzero? (-> this part-off))
       (kill-and-free-particles (-> this part-off))
       )
-  ((the-as (function process-drawable none) (find-parent-method fire-floor 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/drill/drillmid-obs.gc

@@ -176,7 +176,7 @@ This commonly includes things such as:
   :exit (behavior ()
     (sound-stop (-> self sound-id))
     (sound-play "drl-elev-stop")
-    (let ((t9-4 (-> (the-as state (find-parent-method drill-lift 36)) exit)))
+    (let ((t9-4 (-> (find-parent-state) exit)))
       (if t9-4
           (t9-4)
           )
@@ -184,7 +184,7 @@ This commonly includes things such as:
     )
   :post (behavior ()
     (sound-play "drl-elevator-lp" :id (-> self sound-id) :position (-> self root trans))
-    (let ((t9-2 (-> (the-as state (find-parent-method drill-lift 36)) post)))
+    (let ((t9-2 (-> (the-as state (find-parent-state)) post)))
       (if t9-2
           ((the-as (function none) t9-2))
           )

goal_src/jak2/levels/drill/ginsu.gc

@@ -910,11 +910,9 @@
   )
 
 (defmethod deactivate ginsu ((this ginsu))
-  (when (nonzero? (-> this blade-part))
-    (let ((a0-1 (-> this blade-part)))
-      ((the-as (function sparticle-launch-control none) (method-of-object a0-1 kill-and-free-particles)) a0-1)
+  (if (nonzero? (-> this blade-part))
+      (kill-and-free-particles (-> this blade-part))
       )
-    )
   (if (-> this blade-sound-playing)
       (sound-stop (-> this blade-sound))
       )

goal_src/jak2/levels/forest/forest-obs.gc

@@ -395,7 +395,7 @@ This commonly includes things such as:
       (send-event (handle->process (-> this hud)) 'hide-and-die)
       )
   (sound-stop (-> this sound-id))
-  ((the-as (function process-focusable none) (find-parent-method forest-youngsamos 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/forest/predator.gc

@@ -1422,12 +1422,8 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs predator.
 (defmethod relocate predator ((this predator) (arg0 int))
-  (the-as
-    predator
-    ((the-as (function process-focusable int process-focusable) (find-parent-method predator 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod nav-enemy-method-167 predator ((this predator))

goal_src/jak2/levels/forest/wren.gc

@@ -429,7 +429,6 @@ If so, it transitions from [[wren::peck]] to [[wren::hunt]]"
     )
   )
 
-;; WARN: Return type mismatch process-drawable vs wren.
 (defmethod relocate wren ((this wren) (arg0 int))
   (dotimes (v1-0 2)
     (when (-> this fly-curve v1-0)
@@ -438,10 +437,7 @@ If so, it transitions from [[wren::peck]] to [[wren::hunt]]"
           )
       )
     )
-  (the-as
-    wren
-    ((the-as (function process-drawable int process-drawable) (find-parent-method wren 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/fortress/dump/fordumpc-obs.gc

@@ -380,7 +380,7 @@ This commonly includes things such as:
 
 (defmethod deactivate fort-missile-target ((this fort-missile-target))
   (sound-stop (the-as sound-id (-> this sound-id)))
-  ((the-as (function process-drawable none) (find-parent-method fort-missile-target 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -921,15 +921,11 @@ This commonly includes things such as:
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs fort-missile.
 (defmethod relocate fort-missile ((this fort-missile) (arg0 int))
   (if (nonzero? (-> this part-doom))
       (&+! (-> this part-doom) arg0)
       )
-  (the-as
-    fort-missile
-    ((the-as (function process-drawable int process-drawable) (find-parent-method fort-missile 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/fortress/dump/fort-robotank-turret.gc

@@ -326,7 +326,7 @@
 (defmethod deactivate fort-roboscreen ((this fort-roboscreen))
   (disable *screen-filter*)
   (set-roboscreen-alpha! 0.0)
-  ((the-as (function process-drawable none) (find-parent-method fort-roboscreen 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/fortress/dump/fort-robotank.gc

@@ -940,7 +940,6 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs fort-robotank.
 (defmethod relocate fort-robotank ((this fort-robotank) (arg0 int))
   (if (nonzero? (-> this barrel-part))
       (&+! (-> this barrel-part) arg0)
@@ -989,10 +988,7 @@
           )
       )
     )
-  (the-as
-    fort-robotank
-    ((the-as (function process-drawable int process-drawable) (find-parent-method fort-robotank 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/fortress/rescue/forresca-obs.gc

@@ -254,7 +254,7 @@ This commonly includes things such as:
 (defstate shutdown (elec-lock-gate)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as state (find-parent-method elec-lock-gate 22)) enter)))
+    (let ((t9-1 (-> (the-as state (find-parent-state)) enter)))
       (if t9-1
           ((the-as (function none) t9-1))
           )

goal_src/jak2/levels/fortress/rescue/forrescb-obs.gc

@@ -391,7 +391,7 @@ This commonly includes things such as:
 
 (defmethod deactivate fort-elec-belt-inst ((this fort-elec-belt-inst))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method fort-elec-belt-inst 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/gungame/gungame-obs.gc

@@ -149,7 +149,7 @@
       )
   (training-manager-method-24 this)
   (training-manager-method-25 this)
-  ((the-as (function process none) (find-parent-method training-manager 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/hiphog/whack.gc

@@ -1697,21 +1697,17 @@
         (kill-and-free-particles (-> this score-part s5-0))
         )
     )
-  ((the-as (function process none) (find-parent-method whack-a-metal 10)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs whack-a-metal.
 (defmethod relocate whack-a-metal ((this whack-a-metal) (arg0 int))
   (dotimes (v1-0 2)
     (if (nonzero? (-> this score-part v1-0))
         (&+! (-> this score-part v1-0) arg0)
         )
     )
-  (the-as
-    whack-a-metal
-    ((the-as (function process-drawable int process-drawable) (find-parent-method whack-a-metal 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod whack-a-metal-method-29 whack-a-metal ((this whack-a-metal) (arg0 int) (arg1 int))

goal_src/jak2/levels/intro/intro-obs.gc

@@ -347,17 +347,13 @@ This commonly includes things such as:
     )
   )
 
-;; WARN: Return type mismatch process vs metalhead-spawner.
 (defmethod relocate metalhead-spawner ((this metalhead-spawner) (arg0 int))
   (dotimes (v1-0 19)
     (if (nonzero? (-> this path-tbl v1-0))
         (&+! (-> this path-tbl v1-0) arg0)
         )
     )
-  (the-as
-    metalhead-spawner
-    ((the-as (function process int process) (find-parent-method metalhead-spawner 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/mountain/mountain-obs.gc

@@ -3191,7 +3191,7 @@ This commonly includes things such as:
         (task-arrow-spawn gp-0 self)
         )
       )
-    (let ((t9-5 (-> (the-as state (find-parent-method trans-plat 34)) enter)))
+    (let ((t9-5 (-> (the-as state (find-parent-state)) enter)))
       (if t9-5
           ((the-as (function none) t9-5))
           )
@@ -3201,7 +3201,7 @@ This commonly includes things such as:
     (while (-> self child)
       (deactivate (-> self child 0))
       )
-    (let ((t9-2 (-> (the-as state (find-parent-method trans-plat 34)) exit)))
+    (let ((t9-2 (-> (the-as state (find-parent-state)) exit)))
       (if t9-2
           (t9-2)
           )
@@ -3225,7 +3225,7 @@ This commonly includes things such as:
         0
         )
       )
-    (let ((t9-2 (-> (the-as state (find-parent-method trans-plat 34)) trans)))
+    (let ((t9-2 (-> (the-as state (find-parent-state)) trans)))
       (if t9-2
           (t9-2)
           )

goal_src/jak2/levels/mountain/rhino.gc

@@ -1621,15 +1621,11 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs rhino.
 (defmethod relocate rhino ((this rhino) (arg0 int))
   (if (nonzero? (-> this path-intro))
       (&+! (-> this path-intro) arg0)
       )
-  (the-as
-    rhino
-    ((the-as (function process-focusable int process-focusable) (find-parent-method rhino 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! rhino ((this rhino))

goal_src/jak2/levels/nest/flying-spider.gc

@@ -18,14 +18,11 @@
   )
 
 
-;; WARN: Return type mismatch sound-id vs none.
+;; WARN: Return type mismatch object vs none.
 (defmethod play-impact-sound flying-spider-shot ((this flying-spider-shot) (arg0 projectile-options))
   (if (zero? arg0)
       (sound-play "fly-spider-shot")
-      ((the-as (function projectile projectile-options sound-id) (find-parent-method flying-spider-shot 28))
-       this
-       arg0
-       )
+      (call-parent-method this arg0)
       )
   (none)
   )

goal_src/jak2/levels/nest/mammoth.gc

@@ -1490,17 +1490,13 @@
   #f
   )
 
-;; WARN: Return type mismatch process-focusable vs mammoth.
 (defmethod relocate mammoth ((this mammoth) (arg0 int))
   (dotimes (v1-0 4)
     (if (nonzero? (-> this joint-ik v1-0))
         (&+! (-> this joint-ik v1-0) arg0)
         )
     )
-  (the-as
-    mammoth
-    ((the-as (function process-focusable int process-focusable) (find-parent-method mammoth 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy-collision! mammoth ((this mammoth))

goal_src/jak2/levels/nest/mantis.gc

@@ -404,7 +404,7 @@
 (defstate active (mantis)
   :virtual #t
   :trans (behavior ()
-    (let ((t9-1 (-> (the-as (state enemy) (find-parent-method mantis 32)) trans)))
+    (let ((t9-1 (-> (the-as (state enemy) (find-parent-state)) trans)))
       (if t9-1
           (t9-1)
           )

goal_src/jak2/levels/palace/cable/palcab-obs.gc

@@ -913,7 +913,7 @@ This commonly includes things such as:
 (defmethod deactivate pal-rot-gun ((this pal-rot-gun))
   (sound-stop (-> this sound-id))
   (sound-stop (-> this shot-sound-id))
-  ((the-as (function process-drawable none) (find-parent-method pal-rot-gun 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/ruins/rapid-gunner.gc

@@ -1413,15 +1413,11 @@
   (none)
   )
 
-;; WARN: Return type mismatch process-focusable vs rapid-gunner.
 (defmethod relocate rapid-gunner ((this rapid-gunner) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
       )
-  (the-as
-    rapid-gunner
-    ((the-as (function process-focusable int process-focusable) (find-parent-method rapid-gunner 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! rapid-gunner ((this rapid-gunner))

goal_src/jak2/levels/ruins/ruins-obs.gc

@@ -23,7 +23,7 @@
               )
 
 (defmethod rigid-body-object-method-29 sinking-plat ((this sinking-plat) (arg0 float))
-  ((the-as (function rigid-body-platform float none) (find-parent-method sinking-plat 29)) this arg0)
+  (call-parent-method this arg0)
   (rigid-body-platform-method-56 this (-> this anchor-point))
   0
   (none)

goal_src/jak2/levels/sewer/hosehead.gc

@@ -2191,7 +2191,6 @@
     )
   )
 
-;; WARN: Return type mismatch none vs hosehead.
 (defmethod relocate hosehead ((this hosehead) (arg0 int))
   (if (nonzero? (-> this head-joint-mod))
       (&+! (-> this head-joint-mod) arg0)
@@ -2201,7 +2200,7 @@
         (&+! (-> this joint-ik v1-4) arg0)
         )
     )
-  (the-as hosehead ((the-as (function process-drawable int none) (find-parent-method hosehead 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 (defmethod init-enemy! hosehead ((this hosehead))

goal_src/jak2/levels/sewer/sew-gunturret.gc

@@ -1172,7 +1172,7 @@
 
 (defmethod fire-turret! pal-gun-turret ((this pal-gun-turret) (arg0 symbol))
   "@overrides Calls [[sew-gunturret::140]] but also customizes the turret flash via [[set-palcab-turret-flash!]]"
-  ((the-as (function sew-gunturret symbol none) (find-parent-method pal-gun-turret 140)) this arg0)
+  (call-parent-method this arg0)
   (set-palcab-turret-flash! 1.0)
   )
 

goal_src/jak2/levels/sewer/sewer-obs2.gc

@@ -136,7 +136,7 @@
 
 (defmethod deactivate sew-elevator ((this sew-elevator))
   (sound-stop (-> this sound-id))
-  ((the-as (function elevator none) (find-parent-method sew-elevator 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -313,15 +313,11 @@ For example for an elevator pre-compute the distance between the first and last
     )
   )
 
-;; WARN: Return type mismatch process-drawable vs sew-valve.
 (defmethod relocate sew-valve ((this sew-valve) (arg0 int))
   (if (nonzero? (-> this joint))
       (&+! (-> this joint) arg0)
       )
-  (the-as
-    sew-valve
-    ((the-as (function process-drawable int process-drawable) (find-parent-method sew-valve 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/stadium/racebike.gc

@@ -767,15 +767,11 @@
   )
 
 
-;; WARN: Return type mismatch process-drawable vs vehicle-race-bike.
 (defmethod relocate vehicle-race-bike ((this vehicle-race-bike) (arg0 int))
   (if (nonzero? (-> this steering-wheel))
       (&+! (-> this steering-wheel) arg0)
       )
-  (the-as
-    vehicle-race-bike
-    ((the-as (function process-drawable int process-drawable) (find-parent-method vehicle-race-bike 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defmethod update-joint-mods vehicle-race-bike ((this vehicle-race-bike))

goal_src/jak2/levels/stadium/skate/skatea-obs.gc

@@ -342,7 +342,7 @@
       )
     (send-event (handle->process (-> self voicebox)) 'speak-effect #f)
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -382,7 +382,7 @@
       )
     (send-event (handle->process (-> self voicebox)) 'speak-effect #f)
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -455,7 +455,7 @@
       (suspend)
       )
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -520,7 +520,7 @@
       )
     (send-event (handle->process (-> self voicebox)) 'speak-effect #f)
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -560,7 +560,7 @@
       )
     (send-event (handle->process (-> self voicebox)) 'speak-effect #f)
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -597,7 +597,7 @@
       )
     (send-event (handle->process (-> self voicebox)) 'speak-effect #f)
     (let ((gp-0 (current-time)))
-      (until (>= (- (current-time) gp-0) (seconds 1))
+      (until (time-elapsed? gp-0 (seconds 1))
         (suspend)
         )
       )
@@ -1313,7 +1313,7 @@
 
 (defmethod deactivate hoverboard-training-manager ((this hoverboard-training-manager))
   (send-event *traffic-manager* 'restore-default-settings)
-  ((the-as (function process none) (find-parent-method hoverboard-training-manager 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1432,7 +1432,7 @@ This commonly includes things such as:
       )
     )
   :enter (behavior ()
-    (set! (-> self state-time) (current-time))
+    (set-time! (-> self state-time))
     )
   :code (behavior ()
     (until #f
@@ -1560,7 +1560,7 @@ This commonly includes things such as:
       )
     )
   :enter (behavior ()
-    (set! (-> self state-time) (current-time))
+    (set-time! (-> self state-time))
     )
   :code (behavior ()
     (until #f

goal_src/jak2/levels/stadium/stadium-obs.gc

@@ -945,7 +945,7 @@ This commonly includes things such as:
   (if (< 40960.0 (-> arg0 impulse))
       (sound-play "rift-fall")
       )
-  ((the-as (function rigid-body-object rigid-body-impact none) (find-parent-method rift-rider 45)) this arg0)
+  (call-parent-method this arg0)
   (none)
   )
 
@@ -1012,7 +1012,7 @@ This commonly includes things such as:
 
 (defmethod deactivate rift-rider ((this rift-rider))
   (sound-stop (-> this sound-id))
-  ((the-as (function rigid-body-object none) (find-parent-method rift-rider 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1968,7 +1968,7 @@ This commonly includes things such as:
       (send-event (handle->process (-> this hud)) 'hide-and-die)
       )
   (kill-lightning this)
-  ((the-as (function process-focusable none) (find-parent-method stad-samos 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/strip/strip-obs.gc

@@ -365,15 +365,11 @@ This commonly includes things such as:
     )
   )
 
-;; WARN: Return type mismatch strip-hazard vs pitspikes.
 (defmethod relocate pitspikes ((this pitspikes) (arg0 int))
   (if (nonzero? (-> this spinner))
       (&+! (-> this spinner) arg0)
       )
-  (the-as
-    pitspikes
-    ((the-as (function strip-hazard int strip-hazard) (find-parent-method pitspikes 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/tomb/tomb-beetle.gc

@@ -301,7 +301,7 @@
   :enter (behavior ()
     (set! (-> self root trans quad) (-> self entity extra trans quad))
     (quaternion-copy! (-> self root quat) (-> self entity quat))
-    (let ((t9-2 (-> (the-as (state enemy) (find-parent-method tomb-beetle 27)) enter)))
+    (let ((t9-2 (-> (the-as (state enemy) (find-parent-state)) enter)))
       (if t9-2
           (t9-2)
           )

goal_src/jak2/levels/tomb/tomb-obs.gc

@@ -1575,7 +1575,7 @@ This commonly includes things such as:
 
 (defmethod deactivate tomb-plat-return ((this tomb-plat-return))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method tomb-plat-return 10)) this)
+  (call-parent-method this)
   (none)
   )
 
@@ -1916,7 +1916,7 @@ This commonly includes things such as:
 
 (defmethod deactivate tomb-sphinx ((this tomb-sphinx))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method tomb-sphinx 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/tomb/tomb-water.gc

@@ -622,7 +622,7 @@ This commonly includes things such as:
       )
     )
   :trans (behavior ()
-    (let ((t9-1 (-> (the-as (state basebutton) (find-parent-method tomb-beetle-button 30)) trans)))
+    (let ((t9-1 (-> (the-as (state basebutton) (find-parent-state)) trans)))
       (if t9-1
           (t9-1)
           )

goal_src/jak2/levels/tomb/widow-extras.gc

@@ -1193,11 +1193,10 @@ This commonly includes things such as:
   (if (nonzero? (-> this skid-part))
       (kill-and-free-particles (-> this warning-spark-part))
       )
-  ((the-as (function process-drawable none) (find-parent-method widow-bomb 10)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs widow-bomb.
 (defmethod relocate widow-bomb ((this widow-bomb) (arg0 int))
   (if (nonzero? (-> this explode-part))
       (&+! (-> this explode-part) arg0)
@@ -1217,10 +1216,7 @@ This commonly includes things such as:
   (if (nonzero? (-> this spin-jm))
       (&+! (-> this spin-jm) arg0)
       )
-  (the-as
-    widow-bomb
-    ((the-as (function process-drawable int process-drawable) (find-parent-method widow-bomb 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 (defbehavior widow-bomb-reaction widow ((arg0 control-info) (arg1 collide-query) (arg2 vector) (arg3 vector))
@@ -1568,19 +1564,15 @@ This commonly includes things such as:
   (if (nonzero? (-> this explode-part))
       (kill-and-free-particles (-> this explode-part))
       )
-  ((the-as (function process-drawable none) (find-parent-method tomb-boss-pillar 10)) this)
+  (call-parent-method this)
   (none)
   )
 
-;; WARN: Return type mismatch process-drawable vs tomb-boss-pillar.
 (defmethod relocate tomb-boss-pillar ((this tomb-boss-pillar) (arg0 int))
   (if (nonzero? (-> this explode-part))
       (&+! (-> this explode-part) arg0)
       )
-  (the-as
-    tomb-boss-pillar
-    ((the-as (function process-drawable int process-drawable) (find-parent-method tomb-boss-pillar 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; WARN: Return type mismatch object vs none.

goal_src/jak2/levels/under/jellyfish.gc

@@ -401,7 +401,7 @@
 (defstate stare (jellyfish)
   :virtual #t
   :enter (behavior ()
-    (let ((t9-1 (-> (the-as (state enemy) (find-parent-method jellyfish 35)) enter)))
+    (let ((t9-1 (-> (the-as (state enemy) (find-parent-state)) enter)))
       (if t9-1
           (t9-1)
           )
@@ -1169,7 +1169,7 @@
 
 (defmethod deactivate jellyfish ((this jellyfish))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method jellyfish 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/under/under-obs.gc

@@ -866,7 +866,7 @@ This commonly includes things such as:
               )
 
 (defmethod rigid-body-object-method-29 under-buoy-plat ((this under-buoy-plat) (arg0 float))
-  ((the-as (function rigid-body-object float none) (find-parent-method under-buoy-plat 29)) this arg0)
+  (call-parent-method this arg0)
   (rigid-body-platform-method-56 this (-> this orig-trans))
   0
   (none)
@@ -1563,7 +1563,7 @@ This commonly includes things such as:
 
 (defmethod deactivate under-lift ((this under-lift))
   (sound-stop (-> this sound-id))
-  ((the-as (function process-drawable none) (find-parent-method under-lift 10)) this)
+  (call-parent-method this)
   (none)
   )
 

goal_src/jak2/levels/under/under-shoot-block.gc

@@ -2204,7 +2204,7 @@
         )
       )
     )
-  ((the-as (function process-drawable none) (find-parent-method under-shoot-block 10)) this)
+  (call-parent-method this)
   (none)
   )
 

test/decompiler/reference/jak2/engine/ai/enemy_REF.gc

@@ -22,15 +22,11 @@
   )
 
 ;; definition for method 7 of type enemy
-;; WARN: Return type mismatch process-focusable vs enemy.
 (defmethod relocate enemy ((this enemy) (arg0 int))
   (if (nonzero? (-> this neck))
       (&+! (-> this neck) arg0)
       )
-  (the-as
-    enemy
-    ((the-as (function process-focusable int process-focusable) (find-parent-method enemy 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; definition for method 117 of type enemy

test/decompiler/reference/jak2/engine/ambient/ambient_REF.gc

@@ -272,7 +272,7 @@
 ;; definition for method 10 of type talker
 (defmethod deactivate talker ((this talker))
   (send-event (handle->process (-> this voicebox)) 'die)
-  ((the-as (function process none) (find-parent-method talker 10)) this)
+  (call-parent-method this)
   (none)
   )
 

test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc

@@ -1322,7 +1322,7 @@
     (if (not (logtest? (-> self fact options) (actor-option no-reaction)))
         (send-event (handle->process arg1) 'powerup (-> self fact pickup-type) (-> self fact pickup-amount))
         )
-    (let ((t9-2 (-> (the-as state (find-parent-method eco 26)) code)))
+    (let ((t9-2 (-> (the-as state (find-parent-state)) code)))
       (if t9-2
           ((the-as (function none) t9-2))
           )
@@ -1888,7 +1888,7 @@ This commonly includes things such as:
 ;; definition for method 10 of type gem
 (defmethod deactivate gem ((this gem))
   (+! (-> *game-info* live-gem-count) -1)
-  ((the-as (function gem none) (find-parent-method gem 10)) this)
+  (call-parent-method this)
   (none)
   )
 

test/decompiler/reference/jak2/engine/common_objs/conveyor_REF.gc

@@ -103,13 +103,9 @@
   )
 
 ;; definition for method 7 of type conveyor
-;; WARN: Return type mismatch process-drawable vs conveyor.
 (defmethod relocate conveyor ((this conveyor) (new-addr int))
   (&+! (-> this sections) new-addr)
-  (the-as
-    conveyor
-    ((the-as (function process-drawable int process-drawable) (find-parent-method conveyor 7)) this new-addr)
-    )
+  (call-parent-method this new-addr)
   )
 
 ;; definition for method 22 of type conveyor

test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc

@@ -808,12 +808,11 @@ For example for an elevator pre-compute the distance between the first and last
   )
 
 ;; definition for method 7 of type elevator
-;; WARN: Return type mismatch base-plat vs elevator.
 (defmethod relocate elevator ((this elevator) (arg0 int))
   (if (nonzero? (-> this path-seq))
       (&+! (-> this path-seq) arg0)
       )
-  (the-as elevator ((the-as (function base-plat int base-plat) (find-parent-method elevator 7)) this arg0))
+  (call-parent-method this arg0)
   )
 
 ;; definition for method 40 of type elevator

test/decompiler/reference/jak2/engine/common_objs/rigid-body-plat_REF.gc

@@ -161,18 +161,11 @@
   )
 
 ;; definition for method 7 of type rigid-body-platform
-;; WARN: Return type mismatch rigid-body-object vs rigid-body-platform.
 (defmethod relocate rigid-body-platform ((this rigid-body-platform) (new-addr int))
   (if (nonzero? (-> this control-point-array))
       (&+! (-> this control-point-array) new-addr)
       )
-  (the-as
-    rigid-body-platform
-    ((the-as (function rigid-body-object int rigid-body-object) (find-parent-method rigid-body-platform 7))
-     this
-     new-addr
-     )
-    )
+  (call-parent-method this new-addr)
   )
 
 ;; definition for method 53 of type rigid-body-platform

test/decompiler/reference/jak2/engine/common_objs/water-anim_REF.gc

@@ -63,7 +63,7 @@
   (if (nonzero? (-> this flow))
       (&+! (-> this flow) arg0)
       )
-  ((the-as (function water-anim int water-anim) (find-parent-method water-anim 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 ;; failed to figure out what this is:

test/decompiler/reference/jak2/engine/common_objs/water-flow_REF.gc

@@ -111,7 +111,7 @@
   (if (nonzero? (-> this path))
       (&+! (-> this path) arg0)
       )
-  ((the-as (function flow-control int flow-control) (find-parent-method flow-control 7)) this arg0)
+  (call-parent-method this arg0)
   )
 
 ;; definition for method 9 of type flow-control

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))
-   this
-   (the-as editable-command arg0)
-   )
+  (call-parent-method this 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 ((this editable-light) (arg0 editable-array))
-  ((the-as (function editable-light editable-array none) (find-parent-method editable-light 25)) this arg0)
+  (call-parent-method this arg0)
   (when (nonzero? (-> this id))
     (let ((s5-1 (clear *temp-string*)))
       (format s5-1 "delete from light where light_id=~D" (-> this id))
@@ -1278,7 +1275,7 @@
       (set! (-> s3-0 owner) (delete! this (-> s3-0 owner)))
       )
     )
-  ((the-as (function editable-face editable-array none) (find-parent-method editable-face 25)) this arg0)
+  (call-parent-method this arg0)
   (none)
   )
 
@@ -1308,13 +1305,7 @@
 ;; definition for method 27 of type editable-face
 ;; WARN: Return type mismatch editable-face vs editable.
 (defmethod editable-method-27 editable-face ((this 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)) this arg0)
-            )
-          )
-        )
+  (let ((gp-1 (the-as editable-face (call-parent-method this 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)))
@@ -1738,7 +1729,7 @@
       (set! (-> s3-0 owner) (delete! this (-> s3-0 owner)))
       )
     )
-  ((the-as (function editable-plane editable-array none) (find-parent-method editable-plane 25)) this arg0)
+  (call-parent-method this arg0)
   (none)
   )
 
@@ -1752,13 +1743,7 @@
 ;; definition for method 27 of type editable-plane
 ;; WARN: Return type mismatch editable-plane vs editable.
 (defmethod editable-method-27 editable-plane ((this 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)) this arg0)
-            )
-          )
-        )
+  (let ((gp-1 (the-as editable-plane (call-parent-method this 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 ((this nav-graph-editor) (arg0 int))
-  (the-as
-    nav-graph-editor
-    ((the-as (function process int none) (find-parent-method nav-graph-editor 7)) this arg0)
-    )
+  (call-parent-method this arg0)
   )
 
 ;; definition for method 60 of type nav-graph-editor