(let* ((x (new 'stack-no-clear 'array 'int8 1))
       (x-addr (the uint x)))
  (if (and (> x-addr #x7ffff00)
           (< x-addr #x7ffffff))
      1
      0)
  )