(declare (double-float x)) (let ((y (* pi x))) (atan y y))) causes both args to the fatan2 vop to be allocated in fr0, which wasn't handled before. Fix this.