mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
284fb09997
fixes #1983 First functioning enemy! https://user-images.githubusercontent.com/13153231/210184845-f1d93491-11f5-4a64-b69c-41e535992ebc.mp4
14 lines
381 B
Common Lisp
14 lines
381 B
Common Lisp
;; make a type
|
|
(deftype test-struct (structure)
|
|
((func-arr (function object) 2 :offset-assert 0)))
|
|
|
|
;; declare an instance of it
|
|
(define *test-instance*
|
|
(new 'static 'test-struct
|
|
:func-arr (new 'static 'array (function object) 2
|
|
(lambda () (format #t "1~%"))
|
|
(lambda () (format #t "2~%")))))
|
|
|
|
((-> *test-instance* func-arr 1))
|
|
((-> *test-instance* func-arr 0))
|