anchor.diff:          return cont
       }
   
  +let listGac cont (results : ParseResults<ListGacArgs>) =
  +    maybe {
  +        GacSearch.searchGac
  +        |> ignore
  +        return cont
  +    }
   
   let processList cont args =
       match subCommandArgs args with
  
positive.code:         | ListCommands.Project   -> execCommand (listProject cont) subArgs
          | ListCommands.File      -> execCommand (listFiles cont) subArgs
          | ListCommands.Reference -> execCommand (listReferences cont) subArgs
          | ListCommands.GAC       -> traceWarning "not implemented yet"; Some cont
          | ListCommands.Templates -> traceWarning "not implemented yet"; Some cont
      | _ -> Some cont
  
  
negative.code:             | Solution _ -> "List the projects in this solution"
              | Folder _ -> "List the projects in this directory"
  
  type ListGacArgs =
      interface IArgParserTemplate with
          member this.Usage = "List all assemblies in the GAC"
  
  //-----------------------------------------------------------------
  // Move commands
  