Объявить класс, который будет связан с таблицей в базе данных

(def-view-class user ()
  ((id
    :accessor id
    :initarg :id
    :type integer
    :db-type "serial"
    :db-kind :key)
   (username
    :accessor username
    :initarg :username
    :type string)
   (password-hash
    :accessor password-hash
    :initarg :password-hash
    :type string
    :column password_hash))
  (:base-table users))