[xyzzy:02185] Re: document

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

masahito henmi さん、こんにちは。

        Thu, 18 Mar 1999 22:50:48 +0900 の
        [xyzzy:02184] Re: document
        に関するメールにお答えします。

> こんな適当なんじゃぁ、動かないよね ??
> 
> (unexport 'defun)   ; 自信なし
> 
> (defmacro defun (func-name arg-list &rest body)
>   (if (stringp (car body))
>       `(progn
> 	 (setf (get ',func-name 'doc-string) ,(car body))
> 	 (defun ,func-name ,arg-list ,@(cdr body)))
>     `(lisp:defun ,func-name ,arg-list ,@body)))
> 
> ;;注
> (defun foo () "コメント" ...)
> ときたら、(setf (get 'foo 'doc-string) "コメント")とか入れてるだけ ^^;

なんすかぁ、これ。理解不能(^^;


--------
須田誠也(suda seiya)
EZU11330@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/