mirror of
https://github.com/open-goal/jak-project
synced 2026-07-04 13:30:41 -04:00
water
24 lines
396 B
Common Lisp
24 lines
396 B
Common Lisp
;-*-Scheme-*-
|
|
|
|
|
|
(test-setup 10 #f)
|
|
|
|
;; by putting some more functions, we make sure that branches in functions
|
|
;; in later functions actually are using the right stuff
|
|
(defun first-function ((a integer))
|
|
(+ a 2)
|
|
(+ a 3)
|
|
(+ a 4)
|
|
(+ a 6)
|
|
(+ a 10)
|
|
)
|
|
|
|
(defun second-function ((b integer))
|
|
(if (> 2 b)
|
|
0
|
|
10
|
|
)
|
|
)
|
|
|
|
(second-function (second-function (second-function 3)))
|