mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
water111
10 lines
268 B
Common Lisp
10 lines
268 B
Common Lisp
(let ((x (new 'stack-no-clear 'array 'int32 1))
|
|
(y (new 'stack-no-clear 'array 'int8 2))
|
|
(z (new 'stack-no-clear 'array 'int8 1)))
|
|
(set! (-> x) 10)
|
|
(set! (-> z) 0)
|
|
(set! (-> y) #xfffffffff)
|
|
(set! (-> y 1) 3)
|
|
(+ (-> x) (-> y) (-> z) (-> y 1))
|
|
)
|