mirror of
https://github.com/open-goal/jak-project
synced 2026-05-28 08:25:56 -04:00
water111
cee6c21603
* started adding simple functions in gcommon * more tests and features * more tests, debug windows * debug prints for windows * back up some regs for windows * remove debugging prints
6 lines
184 B
Common Lisp
6 lines
184 B
Common Lisp
(let* ((base (the int integer))
|
|
(field (the int (-> integer method-table)))
|
|
(offset (- field base)))
|
|
;;(format #t "offset of methods table is ~d~%" offset)
|
|
offset
|
|
) |