:type (string 100)
:initarg :email)
(companyid
- :type integer)
+ :type integer
+ :initarg :companyid)
(company
:accessor employee-company
:db-kind :join
(let ((new-lenin (car
(clsql:select 'employee
- :where [= [slot-value 'employee 'emplid] 1]))))
+ :where [= [slot-value 'employee 'emplid] 1]
+ :flatp t))))
(format t "His new email is ~A"
(employee-email new-lenin)))