fix method name

This commit is contained in:
Tyler Wilding
2021-08-11 22:33:31 -04:00
parent ca1d540849
commit f2e072cff0
7 changed files with 9 additions and 17 deletions
+1 -1
View File
@@ -1004,7 +1004,7 @@
(new (symbol type basic) _type_ 0)
(activate (_type_ process-tree basic pointer) process-tree 9)
(deactivate (_type_) none 10)
(copy-defaults (_type_ res-lump) none 11)
(copy-defaults! (_type_ res-lump) none 11)
(run-logic? (_type_) symbol 12)
(dummy-method () none 13)
)
+1 -1
View File
@@ -243,7 +243,7 @@
(new (symbol type basic) _type_ 0)
(activate (_type_ process-tree basic pointer) process-tree 9)
(deactivate (_type_) none 10)
(copy-defaults (_type_ res-lump) none 11)
(copy-defaults! (_type_ res-lump) none 11)
(run-logic? (_type_) symbol 12)
(dummy-method () none 13)
)
+1 -1
View File
@@ -212,7 +212,7 @@
(new (symbol type basic) _type_ 0)
(activate (_type_ process-tree basic pointer) process-tree 9)
(deactivate (_type_) none 10)
(copy-defaults (_type_ res-lump) none 11)
(copy-defaults! (_type_ res-lump) none 11)
(run-logic? (_type_) symbol 12)
(dummy-method () none 13)
)
+1 -1
View File
@@ -1169,7 +1169,7 @@
;; definition for method 11 of type rigid-body-platform
;; INFO: Return type mismatch int vs none.
(defmethod
copy-defaults
copy-defaults!
rigid-body-platform
((obj rigid-body-platform) (arg0 res-lump))
(set! (-> obj mask) (the-as process-mask (logior #x80000 (-> obj mask))))
+1 -1
View File
@@ -1248,7 +1248,7 @@
;; definition for method 11 of type rigid-body-platform
;; INFO: Return type mismatch int vs none.
(defmethod
copy-defaults
copy-defaults!
rigid-body-platform
((obj rigid-body-platform) (arg0 res-lump))
(set! (-> obj mask) (the-as process-mask (logior #x80000 (-> obj mask))))
@@ -362,7 +362,7 @@
)
;; definition for method 11 of type teetertotter
(defmethod dummy-method-11 teetertotter ((obj teetertotter) (arg0 object))
(defmethod copy-defaults! teetertotter ((obj teetertotter) (arg0 res-lump))
(let
((s4-0
(new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))
@@ -479,7 +479,3 @@
(go teetertotter-idle)
(none)
)
@@ -285,7 +285,7 @@
)
;; definition for method 11 of type silostep
(defmethod dummy-method-11 silostep ((obj silostep) (arg0 object))
(defmethod copy-defaults! silostep ((obj silostep) (arg0 res-lump))
(logior! (-> obj mask) (process-mask movie-subject))
(let
((s4-0
@@ -327,8 +327,8 @@
(set!
(-> obj anim-limit)
(*
((method-of-type res-lump get-property-value-float)
(the-as res-lump arg0)
(get-property-value-float
arg0
'distance
'interp
-1000000000.0
@@ -466,7 +466,3 @@
0
(none)
)