Commit | Line | Data |
---|---|---|
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 |