mirror of
https://github.com/open-goal/jak-project
synced 2026-06-04 18:59:37 -04:00
12 lines
146 B
Common Lisp
12 lines
146 B
Common Lisp
;; test the use of #cond to evaluate goos expressions at compile time
|
|
|
|
(#cond
|
|
((> 2 (+ 2 1))
|
|
1
|
|
(invalid-code)
|
|
)
|
|
|
|
((< 2 (+ 1 2))
|
|
3
|
|
)
|
|
) |