(defun (setf tag) (new-val word)
  (setf (ldb (byte 6 32) word) new-val))