(deftype my-inline-array-type (inline-array-class)
  ()
  )

(set! (-> my-inline-array-type heap-base) 12)

(let ((my-inline-array-obj
        (the my-inline-array-type
             (new
              'debug
              'my-inline-array-type
              234))))
  (asize-of my-inline-array-obj)
  )