(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])
(unless (clsql-base:time= (slot-value dbobj 'birthday) now)
(setf fail-index x))
(setf now (clsql-base:roll now :day (* 10 x)))))
(unless (clsql-base:time= (slot-value dbobj 'birthday) now)
(setf fail-index x))
(setf now (clsql-base:roll now :day (* 10 x)))))