https://www.codrut.pro/tags/lisp/ Recent content in Lisp on Codrut Constantin Gusoi Hugo en Mon, 18 Oct 2021 23:42:59 +0000 https://www.codrut.pro/snippets/emacs-lisp-macro-evaluate-arguments/ Mon, 18 Oct 2021 23:42:59 +0000 https://www.codrut.pro/snippets/emacs-lisp-macro-evaluate-arguments/ <p>One argument:</p> <div class="highlight"><pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-elisp" data-lang="elisp"><span style="display:flex;"><span>(defmacro macro-evaluates-arg (arg) </span></span><span style="display:flex;"><span> <span style="color:#e6db74">&#34;Evaluate </span><span style="color:#e6db74">`ARG&#39;</span><span style="color:#e6db74">.&#34;</span> </span></span><span style="display:flex;"><span> <span style="color:#f92672">`</span>(when (not (<span style="color:#a6e22e">null</span> arg)) </span></span><span style="display:flex;"><span> <span style="color:#f92672">,</span>arg)) </span></span></code></pre></div><p>Multiple arguments:</p> <div class="highlight"><pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-elisp" data-lang="elisp"><span style="display:flex;"><span>(defmacro macro-evaluates-args (<span style="color:#66d9ef">&amp;rest</span> args) </span></span><span style="display:flex;"><span> <span style="color:#e6db74">&#34;Evaluate </span><span style="color:#e6db74">`ARGS&#39;</span><span style="color:#e6db74">.&#34;</span> </span></span><span style="display:flex;"><span> <span style="color:#f92672">`</span>(when (not (<span style="color:#a6e22e">null</span> args)) </span></span><span style="display:flex;"><span> <span style="color:#f92672">,@</span>args)) </span></span></code></pre></div>