bug#4427: 23.1; defun* don't work when compiled.

[Chong Yidong]

> In traverselisp.el, i use cl stuff with
> (eval-when-compile (require 'cl)) at start of file.
> I have functions that are like:
> (defun* foo (&key a b)...
>
> They all work fine after compiling file.
>
> However, i have one new function that don't work when compiling file but
> work as normal when loading the .el file, or evaluate the function with
> C-M x.

Could you try to make a small, self-contained test case?  Your example
is not small, and it is not self-contained (it calls
traverse-find-readlines).  This makes it difficult to debug.