(DEFMETHOD (FOO-CLASS :BAR) <lf> indents the next line with only two spaces. It should indent that line more, as MULTIPLE-VALUE-BIND does. DEFUN indents differently when not at the top level of list structure. It ought to indent in the same special fashion all the time.