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