shigemk2 https://blog.hatena.ne.jp/shigemk2/ by shigemk2 https://www.shigemk2.com/ Emacs Lisp ;; defmacroではリスト分解機能はない (defmacro for2 (spec &rest body) (declare (indent 1)) (let ((limit (gensym))) (destructuring-bind (var start end) spec `(let ((,var ,start) (,limit ,end)) (while (<= ,var ,limit) ,@body (setq ,var (1+ ,var))))))) (with-output-to-string (for2 (i 1 2) (princ i))) ; => "12" ;; d… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20120420%2F1334894607" title="マクロ定義を拡張する - by shigemk2" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://ecx.images-amazon.com/images/I/51Wg39T8KAL.jpg Hatena Blog https://hatena.blog 2012-04-20 13:03:27 rich https://www.shigemk2.com/entry/20120420/1334894607 1.0 100%