[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.

Michael.