From: drewc Date: Thu, 8 Jan 2009 02:34:08 +0000 (-0800) Subject: Add LOL component X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/2b66db1e02bc11de1b1efcf1ea8335b36e69f4fc Add LOL component Ignore-this: 90cb8901749f588f36b12703a3652d01 darcs-hash:20090108023408-39164-3242410a170c5738c33176b191a80eb79fdf144f.gz --- diff --git a/src/ucw/lol-components.lisp b/src/ucw/lol-components.lisp new file mode 100644 index 0000000..3a502c4 --- /dev/null +++ b/src/ucw/lol-components.lisp @@ -0,0 +1,14 @@ +(in-package :lol-ucw) + +(defcomponent lol-component () + ()) + +(defmethod output-component ((self lol-component)) + self) + +(defmethod render ((self lol-component)) + (display (output-component self) self)) + + + +