+(defmethod find-slot-presentation-for-attribute ((self mewa) attribute)
+ (let ((class-name
+ (or (gethash (second attribute) ucw::*slot-type-mapping*)
+ (error "Can't find slot type for ~A" (second attribute)))))
+
+ (cons (first attribute) (apply #'make-instance
+ class-name
+ (append (cddr attribute) (list :parent self :size 30))))))
+