(defmacro&nbsp;rpn&nbsp;(&amp;rest&nbsp;args)<br />
&nbsp;&nbsp;(let&nbsp;((stack&nbsp;nil))<br />
&nbsp;&nbsp;&nbsp;&nbsp;(dolist&nbsp;(x&nbsp;args)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(push&nbsp;(etypecase&nbsp;x<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number&nbsp;x)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cons&nbsp;(if&nbsp;(eq&nbsp;'quote&nbsp;(first&nbsp;x))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(second&nbsp;x)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol&nbsp;(let&nbsp;((b&nbsp;(pop&nbsp;stack)))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(list&nbsp;x&nbsp;(pop&nbsp;stack)&nbsp;b))))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stack))<br />
&nbsp;&nbsp;&nbsp;&nbsp;(pop&nbsp;stack)))<br />
<br />
<br />
(rpn&nbsp;2&nbsp;2&nbsp;+&nbsp;3&nbsp;*&nbsp;2&nbsp;expt&nbsp;2&nbsp;mod)&nbsp;;==&gt;&nbsp;0<br />
(defparameter&nbsp;x&nbsp;3)<br />
(rpn&nbsp;'x&nbsp;'x&nbsp;+)&nbsp;;==&gt;&nbsp;6<br />