[xyzzy:08533] Re: windows-xxx関数とWindows XP について

["Seiya Suda" <seiya.suda@xxxxxxxxx>]

すみません、またゴミをばらまいて。

defun もマクロ。

びっくりしたのはこれ。

(defmacro defmacro (name (&rest lambda-list) &body body)
  (multiple-value-bind (decl body)
      (find-declaration body)
    (let ((doc (find-documentation body)))
      `(progn
	 ,(if doc
	      `(si:*putprop ',name ,doc 'function-documentation))
	 (si:*fset ',name '(macro ,lambda-list ,@decl (block ,name ,@body)))))))


???

------------------
須田誠也(Seiya Suda)
seiya.suda@xxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/