[Ecls-list] Function documentation still not working

[Goffioul Michael]

> > > (defun f1 () "Documentation string" nil)
> > F1
> > > (documentation 'f1 'function)
> > NIL
> > > (si::get-documentation 'f1 'function)
> > "Documentation string"
> 
> Additional info:
> 
> (si::get-documentation (fdefinition 'f1) 'function) => NIL
> (si::get-documentation 'f1 'function) => "Documentation string"
> 
> The problem is that (documentation 'f1 'function) gets translated
> info the first form, hence it returns NIL.

Additional problem: it looks like function documentation gets lost
during compilation. This only happens for plain functions, generic
functions keep their documentation string.

Michael.