Why not just this?
(de thefunc (A B C)
"This is the help text"
(* A B C) )
On Aug 2, 2015 9:54 AM, "Alexander Burger" <a...@software-lab.de> wrote:
> Hi Manuel,
>
> > I'm trying to create a function to define functions with a documentation
> > string like emacs "defun". I'm trying something like this:
> >
> > (de defun P
> > (def (car P) ...
> >
> > So the car of P is de function name, but it doesn't works as expected.
>
> You may try this:
>
> (de defun P
> (put (car P) 'doc (caddr P))
> (def (car P) (cons (cadr P) (cdddr P))) )
>
>
> Then:
> : (defun thefunc (A B C)
> "This is the help text"
> (* A B C) )
> -> thefunc
>
> : (pp 'thefunc)
> (de thefunc (A B C)
> (* A B C) )
> -> thefunc
>
> : (get 'thefunc 'doc)
> -> "This is the help text"
>
> ♪♫ Alex
> --
> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>
