[xyzzy:02184] Re: document

[masahito henmi <henmi@xxxxxxxxxxxxx>]

逸見です。今日はめずらしく仕事してます（爆)

|> 誰が実装してるんだろ…(^^;
|爆笑

こんな適当なんじゃぁ、動かないよね ??

(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) "コメント")とか入れてるだけ ^^;

------------------------------------------------------------
逸見雅人    Masahito Henmi  henmi@xxxxxxxxxxxxx