src/ucw/lol-components.lisp

(in-package :lol-ucw)

(defclass lol-component ()
  ()
  (:metaclass standard-component-class))

(defmethod output-component ((self lol-component))
  self)

(defmethod render ((self lol-component))
  (display (output-component self) self))
Commit	Line	Data
	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