-(defparameter *default-type* :ucw)
-
-(define-layered-class description ()
- ((description-type
- :initarg :type
- :accessor description.type
- :initform 'viewer
- :special t)
- (description-layers
- :initarg :layers
- :accessor description.layers
- :initform nil
- :special t)
- (description-properties
- :accessor description.properties
- :initform nil
- :special t)
- (described-object
- :layered-accessor object
- :initform nil
- :special t)
- (description-default-attributes
- :accessor default-attributes
- :initarg :default-attributes
- :initform nil
- :special t)
- (description-attributes
- :accessor attributes
- :initarg :attributes
- :initform nil
- :special t)))
-
-(defmethod print-object ((self description) stream)
- (print-unreadable-object (self stream :type t)
- (with-slots (description-type) self
- (format stream "~A" description-type))))
-