-(defun line-out (component object &key (line #'line-in) args)
- (apply #'display component object (append args (funcall line object))))
-
-(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)))))
-