(setf (slot-value esd 'length) length)\r
(setf (slot-value esd 'type) (value-type-to-lisp-type value-type))\r
(setf (slot-value esd 'value-type) value-type)\r
(setf (slot-value esd 'length) length)\r
(setf (slot-value esd 'type) (value-type-to-lisp-type value-type))\r
(setf (slot-value esd 'value-type) value-type)\r