- (setf (slot-value esd 'value-type) value-type)\r
- (setf (slot-value esd 'user-name)\r
- (aif (slot-value dsd 'user-name)\r
- it\r
- (string-downcase (symbol-name (slot-definition-name dsd)))))\r
- (setf (slot-value esd 'sql-name)\r
- (aif (slot-value dsd 'sql-name)\r
- it\r
- (lisp-name-to-sql-name (slot-definition-name dsd))))\r
- (setf (slot-value esd 'sql-name)\r
- (aif (slot-value dsd 'sql-name)\r
- it\r
- (lisp-name-to-sql-name (slot-definition-name dsd))))\r
+ (setf (esd-value-type esd) value-type)\r
+ (setf (esd-user-name esd)\r
+ (aif (dsd-user-name dsd)\r
+ it\r
+ (string-downcase (symbol-name (slot-definition-name dsd)))))\r
+ (setf (esd-sql-name esd)\r
+ (aif (dsd-sql-name dsd)\r
+ it\r
+ (lisp-name-to-sql-name (slot-definition-name dsd))))\r
+ (setf (esd-sql-name esd)\r
+ (aif (dsd-sql-name dsd)\r
+ it\r
+ (lisp-name-to-sql-name (slot-definition-name dsd))))\r