Fixed bug where (setf x (- x 1 2)) yielded x -= 1 - 2.