mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
656489e942
* temp * temp2 * basic case support * working for or without else * support more cases * clean up to drawable headers * ocean * format json
28 lines
752 B
Common Lisp
28 lines
752 B
Common Lisp
(deftype test-elt-type (structure)
|
|
((thing1 symbol)
|
|
(thing2 int)
|
|
)
|
|
)
|
|
|
|
(deftype test-not-inline-inline-array-type (basic)
|
|
((foo int)
|
|
(arr (inline-array test-elt-type)))
|
|
)
|
|
|
|
(let ((obj (new 'static 'test-not-inline-inline-array-type
|
|
:foo 12
|
|
:arr (new 'static 'inline-array test-elt-type
|
|
2
|
|
(new 'static 'test-elt-type :thing1 'asdf :thing2 13)
|
|
(new 'static 'test-elt-type :thing1 'bean :thing2 14)))))
|
|
(format #t "~A ~D ~A ~D ~A ~D~%"
|
|
(-> obj type)
|
|
(-> obj foo)
|
|
(-> obj arr 0 thing1)
|
|
(-> obj arr 0 thing2)
|
|
(-> obj arr 1 thing1)
|
|
(-> obj arr 1 thing2)
|
|
)
|
|
)
|
|
|