mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
water111
8 lines
246 B
Common Lisp
8 lines
246 B
Common Lisp
(let ((arr (new 'static 'boxed-array object 12 32 'asdf "test" '( a b ))))
|
|
(dotimes (i 5)
|
|
(format #t "~A " (-> arr i))
|
|
)
|
|
(format #t "~A " (-> arr content-type))
|
|
(format #t "~D ~D~%" (-> arr length) (-> arr allocated-length))
|
|
0
|
|
) |