mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
16 lines
219 B
Common Lisp
16 lines
219 B
Common Lisp
(define-extern test-function (function int int int int int))
|
|
(test-function 1 2 3 4)
|
|
|
|
(define *test-result*
|
|
(let* ((x 1)
|
|
(y 2)
|
|
(z 3)
|
|
(a 4)
|
|
(b (test-function x y z a))
|
|
(d 5)
|
|
)
|
|
b
|
|
)
|
|
)
|
|
|
|
*test-result* |