mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 05:48:28 -04:00
water
9 lines
338 B
Common Lisp
9 lines
338 B
Common Lisp
(let ((a (new 'stack-no-clear 'array 'float 4))
|
|
(b (new 'stack-no-clear 'array 'uint64 2))
|
|
)
|
|
(set! (-> b 0) #xbbbbbbbbbbbbbbbb)
|
|
(set! (-> a 0) 12.0)
|
|
(set! (-> b 0) (the-as uint (- (-> a 0))))
|
|
(format #t "~f #x~X #x~X #x~X~%" (-> b 0) (-> b 0) (-> (the-as (pointer uint32) b) 0) (-> (the-as (pointer uint32) b) 1))
|
|
)
|