Export portions of `lol-ucw'
[clinton/lisp-on-lines.git] / src / ucw / lol-components.lisp
1 (in-package :lol-ucw)
2
3 ;;; Not sure what the intent of this is, unused in maxclaims --clinton
4
5 (defclass lol-component ()
6 ()
7 (:metaclass standard-component-class))
8
9 (defmethod output-component ((self lol-component))
10 self)
11
12 (defmethod render ((self lol-component))
13 (display (output-component self) self))
14
15
16
17