(multiple-value-bind (sql-type length) (value-type-to-sql-type value-type)
(setf (slot-value esd 'sql-type) sql-type)
(setf (slot-value esd 'length) length)
(setf (slot-value esd 'type) (value-type-to-lisp-type value-type))
(setf (slot-value esd 'value-type) value-type)
(multiple-value-bind (sql-type length) (value-type-to-sql-type value-type)
(setf (slot-value esd 'sql-type) sql-type)
(setf (slot-value esd 'length) length)
(setf (slot-value esd 'type) (value-type-to-lisp-type value-type))
(setf (slot-value esd 'value-type) value-type)