mirror of
https://github.com/open-goal/jak-project
synced 2026-06-05 03:08:40 -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
18 lines
404 B
Common Lisp
18 lines
404 B
Common Lisp
(let* ((new-method (-> bfloat method-table 0))
|
|
(print-method (-> bfloat method-table 2))
|
|
(my-float (the bfloat (new-method 'global bfloat)))
|
|
)
|
|
(set! (-> my-float data) 1.23456)
|
|
(print-method my-float)
|
|
(format #t "~%")
|
|
)
|
|
|
|
#|
|
|
(let ((x 0))
|
|
(while (< x 9)
|
|
(format #t "method ~d of ~A is ~A~%" x bfloat (-> bfloat method-table x))
|
|
(+1! x)
|
|
)
|
|
)
|
|
|#
|
|
0 |