(test-setup 2820 #f)

(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 
             ((-> my-inline-array-type methods 0)
              'debug
              my-inline-array-type
              234))))
  ;;(-> my-inline-array-obj allocated-length)
  (asize-of my-inline-array-obj)
  ;;(inspect my-inline-array-type)
  ;;(inspect my-inline-array-obj)
  ;;(print-type my-inline-array-obj)
  )