[clinton/lisp-on-lines.git] / 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
2b66db1e	1	(in-package :lol-ucw)
2b66db1e	2
46440824	3	(defclass lol-component ()
	4	()
	5	(:metaclass standard-component-class))
2b66db1e	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