2.7 类型谓语
(+ 2 'a)
error→ Wrong type argument: number-or-marker-p, a(defun add-on (x)
(cond ((symbolp x)
;; 如果 X 是一个符号,将它放入 LIST 。
(setq list (cons x list)))
((listp x)
;; 如果 X 是一个列表,则将其元素添加到 LIST。
(setq list (append x list)))
(t
;; 我们只处理符号和列表。
(error "Invalid argument %s in add-on" x))))最后更新于