slot-presentation-cleanups

[clinton/lisp-on-lines.git] / src / mewa / mewa.lisp

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 7cdb073..4434039 100644 (file)
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -141,7 +141,8 @@ attributes is an alist keyed on the attribute name."
 
 
 (defcomponent mewa ()
 
 
 (defcomponent mewa ()

-  ((attributes
+  ((ucw::instance :accessor instance :initarg :instance) 
+   (attributes

     :initarg :attributes
     :accessor attributes
     :initform nil)
     :initarg :attributes
     :accessor attributes
     :initform nil)