(defun test-stack-inline-array ()
  (let ((t0 (new 'stack-no-clear 'array 'int32 1))
        (ta (new 'stack-no-clear 'array 'int32 1))
        (t1 (new 'stack-no-clear 'inline-array 'vector 3))
        (t2 (new 'stack-no-clear 'inline-array 'vector 2)))
    ;; these are somewhat specific to the current strategy for laying out the stack.
    (format #t "#x~X~%" (&- t1 ta))
    (format #t "#x~X~%" (&- t2 t1))
    (set! (-> t1 1 quad) (the-as uint128 0))
    )
  )

(test-stack-inline-array)