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