(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))
  )

(deftype test-basic-for-static-array-field2 (basic)
  ((value uint32)
   (name string)
   (lst pair)
   (dyn-arr basic :dynamic)
   )
  )

(let ((test (new 'static 'test-basic-for-static-array-field2
                 :value 12
                 :dyn-arr (new 'static 'array basic 2
                           "hello"
                           "world"
                           )
                 )))
  (format #t "~A~%" (-> test dyn-arr 0))
  (format #t "~A~%" (-> test dyn-arr 1))

  )