anchor.diff:      File.ReadAllLines (vwFile.FullName) |> Seq.iter (fun x -> printfn "%s" x)
   
   
  -let GenerateSolutionContent (projects : Project list) =
  +let GenerateSolutionContent (projects : Project seq) =
       seq {
           yield ""
           yield "Microsoft Visual Studio Solution File, Format Version 12.00"
  
positive.code:     let slnFile = AddExt viewName Solution |> GetFile wsDir
      let repos = File.ReadAllLines (viewFile.FullName)
  
      let projects = ComputeProjectSelectionClosure antho.Projects repos |> Seq.toList
      
      let slnContent = GenerateSolutionContent projects
      File.WriteAllLines (slnFile.FullName, slnContent)
  
negative.code:         yield "EndGlobal"
      }
  
  let GenerateSolutionDefines (projects : Project seq) =
      XElement (NsMsBuild + "Project",
          XElement (NsMsBuild + "PropertyGroup",
              XElement(NsMsBuild + "FullBuild_Config", "Y"),
  