如何在公共Lisp中删除符号的所有属性?

找到它:

(setf (symbol-plist 'book) nil)

编辑:经过一些搜索,我得出结论,现代CL代码不使用 get 不再支持 getf .

定义接口

(defproperty title)
(defproperty author)
(defproperty publisher)

然后,设置标题:

(setf (title :book-identifier) "Title")

访问标题:

(title :book-identifier)

删除标题:

(setf (title :book-identifier) nil)

删除所有属性:

(erase-book-properties :book-identifier)

实施

所有属性列表:

(defparameter *properties* ())

解释如下: jkiiski ,仅操作您拥有的属性,不要触摸其他组件可能添加的属性:

(defun erase-book-properties (symbol)
  (dolist (property *properties*)
    (remprop symbol property)))

defproperty 宏:

(defmacro defproperty (name)
  `(progn
     (defun (setf ,name) (value symbol)
       (prog1 value
         (if value
             (setf (get symbol ',name) value)
             (remprop symbol ',name))))
     (defun ,name (symbol)
       (get symbol ',name))
     (pushnew ',name *properties*)))

重构

如果稍后,您发现还可以将标题添加到 book 类,而不仅仅是符号,然后您可以将实现更改为添加,例如以向后兼容的方式处理符号和其他类型的对象的泛型函数。