mirror of
https://github.com/open-goal/jak-project
synced 2026-05-28 00:16:20 -04:00
water111
c9b53d51ff
* check on windows * fix windows build * version test * clean up - will it work on windows * fix formatting
17 lines
333 B
Common Lisp
17 lines
333 B
Common Lisp
(let* ((print-method (method bfloat print))
|
|
(my-float (new '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 |