[clinton/lisp-on-lines.git] / src / ucw / lol-components.lisp

(in-package :lol-ucw)

(defcomponent lol-component ()
  ())

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

(defmethod render ((self lol-component))
  (display (output-component self) self))
Commit	Line	Data
2b66db1e	1	(in-package :lol-ucw)
	2
	3	(defcomponent lol-component ()
	4	())
	5
	6	(defmethod output-component ((self lol-component))
	7	self)
	8
	9	(defmethod render ((self lol-component))
	10	(display (output-component self) self))
	11
	12
	13
	14