mirror of
https://github.com/open-goal/jak-project
synced 2026-05-28 16:32:18 -04:00
water111
7 lines
163 B
Common Lisp
7 lines
163 B
Common Lisp
(let* ((x (new 'stack-no-clear 'array 'int8 1))
|
|
(x-addr (the uint x)))
|
|
(if (and (> x-addr #x7ffff00)
|
|
(< x-addr #x7ffffff))
|
|
1
|
|
0)
|
|
) |