(clsql:update-record-from-slots employee1 '(first-name last-name email))
(let ((lenin (car (clsql:select 'employee
:where [= [slot-value 'employee 'emplid]
(clsql:update-record-from-slots employee1 '(first-name last-name email))
(let ((lenin (car (clsql:select 'employee
:where [= [slot-value 'employee 'emplid]