在common lisp中 如果要使用error 检测函数参数中&key类参数 其实不能实现，原因在于解释器内置报错会首先执行
不如在函数：
(defun foo(&key x y)
(cond (x (print x)) (y (print y)) (t (error "Error from package: ~A" *package*)))
当调用(foo :z 1) 时
SBCL 会首先报错： unknown &KEY argument: :Z
[Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]