mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
Tyler Wilding
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
|
|
) |