mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
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)
|
|
) |