(mapcan (lambda (class)
(let ((initargs (sod-class-initargs class)))
(and initargs
- (list (cons (mapcar #'sod-initarg-argument
- initargs)
- (format nil "initargs for ~A"
- class))))))
+ (list (cons (format nil "initargs for ~A"
+ class)
+ (mapcar #'sod-initarg-argument
+ initargs))))))
(sod-class-precedence-list
(effective-method-class method)))))