Hi,

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).

Clisp:

[4]> (alexandria.0.dev:parse-body '((declare (optimize speed)) (+ x y)))

(DECLARE (OPTIMIZE SPEED))
(+ X Y)
((+ X Y)) ;
((DECLARE (OPTIMIZE SPEED))) ;
NIL


SBCL:

* (parse-body '((declare (optimize speed)) (+ x y)))   

(DECLARE (OPTIMIZE SPEED))
(+ X Y)
((+ X Y))
((DECLARE (OPTIMIZE SPEED)))
NIL


I'm using Alexandria of Quicklisp.