-(defmacro call-display (object &rest args)
- `(call-component self (make-instance 'standard-display-component
+
+(define-layered-function find-display-type (object))
+
+(define-layered-method find-display-type (object)
+ 'viewer)
+
+(define-layered-function find-display-layers (object))
+
+(define-layered-method find-display-layers (object)
+ "layered function"
+ nil)
+
+(defmacro call-display (component object &rest args)
+ `(call-component ,component (make-instance 'standard-display-component