mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
14 lines
302 B
Common Lisp
14 lines
302 B
Common Lisp
(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
|
|
(new
|
|
'debug
|
|
'my-inline-array-type
|
|
234))))
|
|
(asize-of my-inline-array-obj)
|
|
) |