Files
2021-07-26 21:39:05 -04:00

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)
)