(deftype test-elt-type (structure)
  ((thing1 symbol)
   (thing2 int)
   )
  )

(deftype test-not-inline-inline-array-type (basic)
  ((foo int)
   (arr (inline-array test-elt-type)))
  )

(let ((obj (new 'static 'test-not-inline-inline-array-type
                :foo 12
                :arr (new 'static 'inline-array test-elt-type
                          2
                          (new 'static 'test-elt-type :thing1 'asdf :thing2 13)
                          (new 'static 'test-elt-type :thing1 'bean :thing2 14)))))
  (format #t "~A ~D ~A ~D ~A ~D~%"
          (-> obj type)
          (-> obj foo)
          (-> obj arr 0 thing1)
          (-> obj arr 0 thing2)
          (-> obj arr 1 thing1)
          (-> obj arr 1 thing2)
          )
  )