case

case构造实现了多个test-action子句，如cond构造。 但是，它会评估关键表单，并根据对该键表单的评估允许多个操作子句。

case宏的语法是 -

CASE的模板是

(case  (keyform)
((key1)   (action<sub>1</sub>   action<sub>2</sub> ...) )
((key2)   (action<sub>1</sub>   action<sub>2</sub> ...) )
...
((keyn)   (action<sub>1</sub>   action<sub>2</sub> ...) ))

例子 (Example)

创建一个名为main.lisp的新源代码文件，并在其中键入以下代码。

(setq day 4)
(case day
(1 (format t "~% Monday"))
(2 (format t "~% Tuesday"))
(3 (format t "~% Wednesday"))
(4 (format t "~% Thursday"))
(5 (format t "~% Friday"))
(6 (format t "~% Saturday"))
(7 (format t "~% Sunday")))

单击“执行”按钮或键入Ctrl + E时，LISP立即执行它，返回的结果为 -

Thursday