Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'

[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..bbbdadb 100644 (file)
--- a/src/ucw/lol-components.lisp
+++ b/src/ucw/lol-components.lisp
@@ -1,7 +1,10 @@
 (in-package :lol-ucw)
 
 (in-package :lol-ucw)
 

-(defcomponent lol-component ()
-  ())
+;;; Not sure what the intent of this is, unused in maxclaims --clinton
+
+(defclass lol-component ()
+  ()
+  (:metaclass standard-component-class))

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