-(defun line-out (component object &rest args &key (line #'line-in) &allow-other-keys )
- (apply #'display component object (append args (funcall line object))))
-
-(defline line-in (thing)
- '())
-
-
-(defmacro call-line (from line &rest args)
- (with-unique-names (lines object)
- `(multiple-value-bind (,lines ,object)
- (funcall ,line)
- (call-display-with-context ,from ,object nil (append ,args ,lines)))))