((emplid
:db-kind :key
:db-constraints :not-null
- :nulls-ok nil
:type integer
:initarg :emplid)
(first-name
(email
:accessor employee-email
:type (string 100)
- :nulls-ok t
:initarg :email)
(companyid
:type integer)
:set nil))
(managerid
:type integer
- :nulls-ok t
:initarg :managerid)
(manager
:accessor employee-manager