There's a bug when using setf to decrement a variable:

(ps (setf x (- x 1 2)))
=> "x -= 1 - 2;"

Note that this works correctly:

(ps (setf x (- 1 x 2)))
=> "x = 1 - x - 2;"

Dan