- (let* ((field (mysql-fetch-field-direct res-ptr i))
- #+ignore
- (field-test (uffi:deref-array field-vec 'mysql-field-vector i))
- (type (uffi:get-slot-value field 'mysql-field 'type)))
+ (let* ( (field (mysql-fetch-field-direct res-ptr i))
+ #+ignore (field (uffi:deref-array field-vec 'mysql-field-vector i))
+ (type (uffi:get-slot-value field 'mysql-field 'type)))