mirror of
https://github.com/open-goal/jak-project
synced 2026-06-12 05:27:57 -04:00
water111
cee6c21603
* started adding simple functions in gcommon * more tests and features * more tests, debug windows * debug prints for windows * back up some regs for windows * remove debugging prints
22 lines
285 B
Common Lisp
22 lines
285 B
Common Lisp
(let ((total 0))
|
|
(if (true-func)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
|
|
(if (false-func)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
|
|
(if (not (true-func))
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
|
|
(if (not (false-func))
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
total
|
|
) |