(rplacd (assoc :bar alist) 6))
↓
(setf alist (cons (cons :bar 6) alist))