[alexandria-devel] PARSE-BODY printing its argument

[Attila Lendvai]

> SBCL:
>
> * (parse-body '((declare (optimize speed)) (+ x y)))
>
> (DECLARE (OPTIMIZE SPEED))
> (+ X Y)
> ((+ X Y))
> ((DECLARE (OPTIMIZE SPEED)))
> NIL

FYI, can't reproduce on alexandria head:

CL-USER> (alexandria:parse-body '((declare (optimize speed)) (+ x y)))
((+ X Y))
((DECLARE (OPTIMIZE SPEED)))
NIL
CL-USER>

-- 
 attila

Notice the erosion of your (digital) freedom, and do something about it!

PGP: 2FA1 A9DC 9C1E BA25 A59C  963F 5D5F 45C7 DFCD 0A39
OTR XMPP: 8647EEAC EA30FEEF E1B55146 573E52EE 21B1FF06