-
-;;;; TODO : this doesn't work
-
-(defaction call-display-with-context ((from component) object context &rest properties)
- (call-component self (make-instance 'standard-display-component
- :context context
- :object object
- :args (if (cdr properties)
- properties
- (car properties)))))
-
-(defmacro call-display (component object &rest properties)
- `(let ()
- (call-display-with-context ,component ,object nil ,@properties)))
-
-(defcomponent standard-display-component ()
- ((context :accessor context :initarg :context)
- (object :accessor object-of :initarg :object)
- (args :accessor args :initarg :args)))
-
-(defmethod render ((self standard-display-component))
-
- (apply #'display self (object-of self) (args self)))
-
-