mirror of
https://github.com/open-goal/jak-project
synced 2026-07-28 07:09:43 -04:00
water111
38 lines
915 B
Common Lisp
38 lines
915 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))
|
|
)
|
|
|
|
(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))
|
|
|
|
)
|