Pass &rest args onto next method in display t NULL

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

diff --git a/src/ucw/lol-components.lisp b/src/ucw/lol-components.lisp
index 3a502c4..395c8a1 100644 (file)
--- a/src/ucw/lol-components.lisp
+++ b/src/ucw/lol-components.lisp
@@ -1,7 +1,8 @@
 (in-package :lol-ucw)
 
 (in-package :lol-ucw)
 

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

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