mirror of
https://github.com/open-goal/jak-project
synced 2026-07-04 21:35:47 -04:00
water
21 lines
510 B
Common Lisp
21 lines
510 B
Common Lisp
(test-setup 2820 #f)
|
|
|
|
(deftype my-inline-array-type (inline-array-class)
|
|
()
|
|
)
|
|
|
|
(set! (-> my-inline-array-type heap-base) 12)
|
|
|
|
(let ((my-inline-array-obj
|
|
(the my-inline-array-type
|
|
((-> my-inline-array-type methods 0)
|
|
'debug
|
|
my-inline-array-type
|
|
234))))
|
|
;;(-> my-inline-array-obj allocated-length)
|
|
(asize-of my-inline-array-obj)
|
|
;;(inspect my-inline-array-type)
|
|
;;(inspect my-inline-array-obj)
|
|
;;(print-type my-inline-array-obj)
|
|
)
|