correct indentation for flet and labels macros

[Suraj Acharya]

Is there any way to get flet and labels to indent their definitions like 
defun?

I want

(flet ((foo (args)
         (bar)))


instead of


(flet ((foo (args)
            (bar)))


Suraj