method clear_table_from_constraints = fun name ->
    let to_be_removed = ref [] in
      self#foreach
        (fun path iter ->
           let data = self#get_data ~row:iter in
           let t1   = data.jc_column1.SQL_db.col_table.SQL_db.ta_name
           and t2   = data.jc_column2.SQL_db.col_table.SQL_db.ta_name in
               if name = t1 || name = t2 then
                 to_be_removed := (self#get_row_reference path) :: !to_be_removed;
             false);
      List.iter
        (fun r -> i_bool (self#remove r#iter))
        !to_be_removed