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