(match tmp_short_circuit with
| None -> (* no short circuit possible, use cache *)
debug_print "No short circuit available, use cache";
let tmp = tempfile () in
finally (fun () -> Sys.remove tmp) (lazy (
(match enc with
(match tmp_short_circuit with
| None -> (* no short circuit possible, use cache *)
debug_print "No short circuit available, use cache";
let tmp = tempfile () in
finally (fun () -> Sys.remove tmp) (lazy (
(match enc with