| 1 | (in-package :lol-ucw) |
| 2 | |
| 3 | (defclass lol-component () |
| 4 | () |
| 5 | (:metaclass standard-component-class)) |
| 6 | |
| 7 | (defmethod output-component ((self lol-component)) |
| 8 | self) |
| 9 | |
| 10 | (defmethod render ((self lol-component)) |
| 11 | (display (output-component self) self)) |
| 12 | |
| 13 | |
| 14 | |
| 15 | |