(deftype test-basic-for-static-array-field (basic)
  ((value uint32)
   (name string)
   (arr basic 12)
   (lst pair)
   )
  )

(let ((test (new 'static 'test-basic-for-static-array-field
                 :value 12
                 :arr (new 'static 'array basic 12
                           "asdf"
                           "ghjkl"
                           )
                 )))
  (format #t "~A~%" (-> test arr 1))
  )