(let ((arr (new 'static 'boxed-array object 12 32 'asdf "test" '( a b ))))
  (dotimes (i 5)
    (format #t "~A " (-> arr i))
    )
  (format #t "~A " (-> arr content-type))
  (format #t "~D ~D~%" (-> arr length) (-> arr allocated-length))
  0
  )