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
7 lines
154 B
Common Lisp
7 lines
154 B
Common Lisp
(let* ((x (new 'stack 'array 'int8 1))
|
|
(x-addr (the uint x)))
|
|
(if (and (> x-addr #x7ffff00)
|
|
(< x-addr #x7ffffff))
|
|
1
|
|
0)
|
|
) |