anchor.diff:            let wrappingMethod = if existsFocusedTests then applyFocusedWrapping else Enabled
             testsList |> Seq.map (fun (n, t, s) -> (n, t, wrappingMethod s))
   
  +  // here Anthony:
  +  //  For 'normal tests';
  +  //  readerWriterSlim.EnterRead() (perhaps?)
  +  //  For 'perf tests';
  +  // readerWriterSlim.EnterWrite()
  +  let enterLock _ _ = ()
  +  // need to create lease module, implement these functions.
  +  // The first parameter is the state (the Map<Name*Test, RWLS> perhaps?)
  +  // the second is the key to enter a lock for. Should allow for multiple
  +  // 'normal' and untagged tests (that can run parallel = readers) and then
  +  // some 'sequential' tests like the performance tests, benchmark tests or
  +  // the Expect.isFasterThan usage inside a given test.
  +
  +  (*
  +    Equivalent and opposite of above ...
  +    readerWriterSlim.Exit(...)
  +  *)
  +  let exitLock _ _ = ()
  +
     /// Runs a list of tests, with parameterized printers (progress indicators) and traversal.
     /// Returns list of results.
     let evalTestList =
  
positive.code: 
        let pipeline =
          beforeOne
          >> execFocused execOne
          >> printOne
  
        WrappedFocusedState.WrapStates
  
negative.code:       else
          None
  
      fun (printers: TestPrinters) (* locks : Locks *) map ->
  
        let beforeOne (name: string, test, wrappedFocusedState) =
          printers.beforeEach name
  