src/ucw/lol-components.lisp

   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