common lisp中cond

看代码：

(defvar *arch-enemy* nil)
(print *arch-enemy*)
(defun pudding-eater (person)
  (cond 
    ((eq person 'henry) (setf *arch-enemy* 'stupid-lisp-alien) 
                        '(alien  you ate my pudding))
    ((eq person 'johnny) 
     (print '(johnny is not here)))
                         )
  )
  
(print (pudding-eater 'henry))
(print *arch-enemy*)

如果是属于条件，则执行后面的代码。

执行：

1，保存上述代码为 com.lisp

2，进入放置com.lisp的文件夹目录

3，cmd中输入clisp,进入common lisp环境

4，(load "com.lisp")

可以看到执行的结果.