setf not working as expected

setf-it.lisp

(defun (setf it) (new tree) (setf tree new))
(let ((this :foo))
  (setf (it this) :bar)
  this) ;; => :foo (why does this return :foo and not :bar)