(clsql:execute-command "set datestyle to 'iso'"))
(clsql:update-records [employee] :av-pairs `((birthday ,now))
:where [= [emplid] 1])
(clsql:execute-command "set datestyle to 'iso'"))
(clsql:update-records [employee] :av-pairs `((birthday ,now))
:where [= [emplid] 1])
(clsql:execute-command "set datestyle to 'iso'"))
(dotimes (x 40)
(clsql:update-records [employee] :av-pairs `((birthday ,now))
(clsql:execute-command "set datestyle to 'iso'"))
(dotimes (x 40)
(clsql:update-records [employee] :av-pairs `((birthday ,now))