If Than Else.lisp

(defvar *arch-enemy* nil)
(defun pudding-eater (person)
	(cond	((eq person 'henry) (setf *arch-enemy* 'stupid-lisp-alien)
				'(curse you lisp alien - you ate my pudding))
			((eq person 'johnny) (setf *arch-enemy* 'useless-old-johnny)
				'(i hope you choked on my pudding johnny))
			(t 	'(why you eat my pudding stranger?))))