- (list (cons (format nil "initargs for ~A"
- class)
- (mapcar #'sod-initarg-argument
- initargs))))))
- (sod-class-precedence-list
- (effective-method-class method)))))
+ (list (cons (lambda (arg)
+ (info-with-location
+ (gethash arg map)
+ "Type `~A' from initarg ~
+ in class `~A' (here)"
+ (argument-type arg) class)
+ (report-inheritance-path
+ state class))
+ arglist)))))
+ (sod-class-precedence-list class))))