bug#9115: 24.0.50; `documentation' should not return args list for CL defun*.

[Thierry Volpiatto]

Leo <sdl.web@gmail.com> writes:

> On 2011-07-18 15:18 +0800, Thierry Volpiatto wrote:
>> (defun* foo (&rest args) nil)
>> (documentation 'foo)
>> Give ==>
>> "
>>
>> (fn &rest ARGS)"
>
> (defun* foo (&rest args) nil) is equivalent to
>
> (defun foo
>   (&rest args)
>   "Not documented\n\n(fn &rest ARGS)"
>   (let* nil
>     (block foo nil)))
So it should return:
"Not documented

(fn &rest ARGS)"

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997