cl-clos-extra:CLOS 的一些附加功能

Cl-Clos-Extra 用法 (ql:quickload :cl-clos-extra) (defclass super () (c)) (defclass example (super) (a b (c :remove t) (e :alias b)) (:metaclass clos-extra:extra-definition-slot-class)) (defparameter *b* (make-instance 'example)) (setf (slot-value b 'b) 5) (slot-value b 'b) ;; 5 (slot-value b 'e) ;; 5 (setf (slot-value b 'e) 10) (slot-value b 'b) ;; 10 (slot-value b 'e) ;; 10