Найти пользователя с id=2 и установить ему поле username в значение joe

(let ((user (first (select 'user :where [= [id] 1] :flatp t :refresh t))))
  (setf (username user) "joe")
  (update-records-from-instance user))