- 'attributes-esd
- :name 'all-attributes
- :initform `',alist
- :initfunction #'(lambda () alist)
- :allocation :instance
- :documentation "Attribute bucker"
- :type t
- #-lispworks :class #-lispworks class
- ;; This is an attempted work-around -- lispworks doesn't work
- ;; it appears to setup storage someplace
- ;; #+lispworks :location #+lispworks (length normal-slots)
- )
- normal-slots)))
-