- (uffi:with-foreign-object (fo :unsigned-int)
- (setf (uffi:deref-pointer fo :unsigned-int) value)
- (mysql-options mysql-ptr option-code fo)))
+ (if (integerp value)
+ (uffi:with-foreign-object (fo :unsigned-int)
+ (setf (uffi:deref-pointer fo :unsigned-int) value)
+ (mysql-options mysql-ptr option-code fo))
+ (warn "Expecting integer argument for mysql option ~A, got ~A ~
+- ignoring.~%"
+ name value)))