mirror of
https://github.com/open-goal/jak-project
synced 2026-05-31 09:22:14 -04:00
water111
460ec874bb
* add support for stack integers * update documentation * revise value type stack variables
9 lines
240 B
Common Lisp
9 lines
240 B
Common Lisp
(let ((x (new 'stack 'array 'int32 1))
|
|
(y (new 'stack 'array 'int8 2))
|
|
(z (new 'stack 'array 'int8 1)))
|
|
(set! (-> x) 10)
|
|
(set! (-> z) 0)
|
|
(set! (-> y) #xfffffffff)
|
|
(set! (-> y 1) 3)
|
|
(+ (-> x) (-> y) (-> z) (-> y 1))
|
|
) |