HCoop / clinton / lisp-on-lines.git / blame
| Commit | Line | Data |
|---|---|---|
| 2b66db1e | 1 | (in-package :lol-ucw) |
| 2 | ||
| 7dd8b225 CE |
3 | ;;; Not sure what the intent of this is, unused in maxclaims --clinton |
| 4 | ||
| 46440824 | 5 | (defclass lol-component () |
| 6 | () | |
| 7 | (:metaclass standard-component-class)) | |
| 2b66db1e | 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 |