mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
Tyler Wilding
19 lines
358 B
Common Lisp
19 lines
358 B
Common Lisp
(define format _format)
|
|
|
|
(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 |