`common-lisp-indent-function', `flet' and "def*"

[Dave Pearson]

In GNU Emacs 21.2.1 (i586-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-03-20 on hagbard
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: nil

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

`common-lisp-indent-function' gets the indentation of the first line of a
function wrong when defining a function via `flet' and where the name of
that function begins with "def".

To test this start a new "emacs -q", then, in the *scratch* buffer,
evaluate:

,----
| (setq lisp-indent-function 'common-lisp-indent-function)
`----

now enter and indent this code:

,----
| (flet ((is-defun-p ()
|          nil)))
`----

followed by:

,----
| (flet ((defunp ()
|            nil))
`----

note how the indent of the second form differs from the indent of the first
form.

-- 
Dave Pearson
http://www.davep.org/