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.