@@ -238,13+237,13 @@ attributes is an alist keyed on the attribute name."
(let ((class-name
(or (gethash (if (consp (second attribute))
(car (second attribute))
(let ((class-name
(or (gethash (if (consp (second attribute))
(car (second attribute))
- (second attribute))
- ucw::*slot-type-mapping*)
- (error "Can't find slot type for ~A" (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*)))))