mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
13 lines
338 B
Common Lisp
13 lines
338 B
Common Lisp
(let ((arr (new 'global 'boxed-array int16 12)))
|
|
(dotimes (i 12)
|
|
(set! (-> arr i) (* i 2))
|
|
)
|
|
(dotimes (i 12)
|
|
(format #t "~D ~D " i (-> arr i))
|
|
)
|
|
(format #t "~D ~D ~D ~A~%" (length arr) (asize-of arr) (&- (&-> arr 4) (&-> arr 1)) (-> arr type))
|
|
)
|
|
|
|
;; asize should be...
|
|
;; 16 + 12 * 2 = 40
|
|
;; ptr diff is 3 * 2 = 6 |