mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
21 lines
510 B
Plaintext
21 lines
510 B
Plaintext
(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)
|
|
)
|