Hi,<br><br>For some reason, whenever I use the function PARSE-BODY, the argument BODY that is passed to it is printed (tested in SBCL and Clisp).<br><br>Clisp:<br><br><span style="font-family:courier new,monospace">[4]> (alexandria.0.dev:parse-body '((declare (optimize speed)) (+ x y)))</span><br style="font-family:courier new,monospace">
<br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">(DECLARE (OPTIMIZE SPEED)) </span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">(+ X Y) </span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">((+ X Y)) ;</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">((DECLARE (OPTIMIZE SPEED))) ;</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">NIL</span><br style="font-family:courier new,monospace"><br><br>SBCL:<br><br><font face="courier new,monospace">* (parse-body '((declare (optimize speed)) (+ x y)))    <br>
<br>(DECLARE (OPTIMIZE SPEED)) <br>(+ X Y) <br>((+ X Y))<br>((DECLARE (OPTIMIZE SPEED)))<br>NIL<br></font><br><br>I'm using Alexandria of Quicklisp.<br>