mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
18 lines
426 B
Common Lisp
18 lines
426 B
Common Lisp
(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))
|
|
)
|