mirror of
https://github.com/open-goal/jak-project
synced 2026-07-04 21:35:47 -04:00
water
20 lines
424 B
Common Lisp
20 lines
424 B
Common Lisp
;-*-Scheme-*-
|
|
|
|
(test-setup 1.2345 #f)
|
|
|
|
(let* ((new-method (-> bfloat methods 0))
|
|
(print-method (-> bfloat methods 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 methods x))
|
|
(+1! x)
|
|
)
|
|
)
|