(bind-func fleet_response_error_p
(lambda (response:json_t* print_p:i1)
(let ((err (json_object_get response "error")))
(if (not (null? err))
(begin (printf "Fleet error code %lld: %s\n"
(json_integer_value (json_object_get err "code"))
(json_string_value (json_object_get err "error")))
#t)
#f))))