The class
capi-object
provides a name and a property list for general purposes, along with the accessors
capi-object-name
and
capi-object-plist
respectively. A
capi-object
's name is defaulted by define-interface to be the name of the slot into which the object is put.
(setq object (make-instance 'capi:capi-object
:name 'test))
(capi:capi-object-name object)
(setf (capi:capi-object-plist object)
'(:red 1 :green 2 :blue 3))
(capi:capi-object-property object :green)