how to make emacs indent my redefined defun? (in common lisp code)

how to make emacs indent my redefined defun? (in common lisp code)

[Pedro Kröger]

Hi,

In a project I'm working (in common lisp) we use a redefined defun
that exports the
name of the function by default and may have the key :private to
prevent the function's name from being exported. The syntax is like
defmethod's:

;;; the symbol bar is exported
(defun bar ()
   ....)

;;; the symbol foo is not exported
(defun foo :private ()
   ...)

How to make emacs indent the 'foo' function correctly? I suppose the
function that indents defmethod should work, but I don't know how to
make emacs use this function for defuns. I tried:

(put 'defun 'common-lisp-indent-function 'lisp-indent-defmethod)

(setq lisp-indent-defun-method 'lisp-indent-defmethod)

But it doesn't work. Any ideas?