Cl-Clos-Extra

Usage

(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

(slot-value b 'c) ;; Error
(setf (slot-value b 'c) 10) ;; Error

Dependencies

Installation

Links cl-clos-extra.asd and cl-clos-extra-test.asd into $HOME/quicklisp/local-projects