mirror of
https://github.com/open-goal/jak-project
synced 2026-07-05 21:49:28 -04:00
16 lines
154 B
Common Lisp
16 lines
154 B
Common Lisp
;-*-Scheme-*-
|
|
|
|
(test-setup 3 #f)
|
|
|
|
;; test the use of #cond to evaluate goos expressions.
|
|
|
|
(#cond
|
|
((> 2 (+ 2 1))
|
|
1
|
|
)
|
|
|
|
((< 2 (+ 1 2))
|
|
3
|
|
)
|
|
)
|