Files
jak-project/test/goalc/source_templates/arithmetic/add-function.static.gc
T
2020-10-08 00:05:01 -04:00

16 lines
293 B
Common Lisp

(defun return-one ()
1)
(defun return-sum ((a integer) (b integer))
(+ a b)
)
(defun return-plus-two ((in integer))
(+ in 2)
)
(defun return-plus-three ((in integer))
(+ 3 in)
)
(+ 2 (return-one) (return-plus-three 2) (return-plus-two 3) (return-sum 1 2) (return-plus-two 3))