2009-08-10から1日間の記事一覧
気になるけど、気にするだけ無駄なんだよね。ということの確認。 (defmacro nprogn (num &rest body) (nprogn-f (1- num) `(progn ,@body))) (defun nprogn-f (num body) (if (plusp num) (list 'let nil (nprogn-f (1- num) body)) body)) (macroexpand '(n…
気になるけど、気にするだけ無駄なんだよね。ということの確認。 (defmacro nprogn (num &rest body) (nprogn-f (1- num) `(progn ,@body))) (defun nprogn-f (num body) (if (plusp num) (list 'let nil (nprogn-f (1- num) body)) body)) (macroexpand '(n…