mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
5b24e43143
* change syntax for boxed array * fix test and make the flava thing kind of work
8 lines
260 B
Common Lisp
8 lines
260 B
Common Lisp
(let ((arr (new 'static 'boxed-array :type object :length 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
|
|
) |