(defun philosoph (thing &optional (property 'fun))
	(list thing 'is property))

(defun keylist (a &key x y z)
	(list a x y z))

(deftest test-parameters ()
	(check
		(equalp '(death is fun) (philosoph 'death))
		(equalp '(1 2 3 nil) (keylist 1 :y 3 :x 2))))