anchor.diff:              use reader = getParameterDefaultValues.ExecuteReader()
               reader |> Seq.unfold (fun current -> if current.Read() then Some( current.GetString (0), current) else None) |> String.concat "\n"
   
  -        let parser = TSql110Parser(true)
  +        let parser = TSql110Parser( true)
           let tsqlReader = new StringReader(spDefinition)
  -        let mutable errors : IList<ParseError> = null
  -        let fragment = parser.Parse(tsqlReader, &errors)
  +        let errors = ref Unchecked.defaultof<_>
  +        let fragment = parser.Parse(tsqlReader, errors)
   
           let paramDefaults = Dictionary()
   
  
positive.code:         | LiteralType.Money | LiteralType.Numeric -> x.Value |> decimal |> box |> Some
          | LiteralType.Real -> x.Value |> float |> box |> Some 
          | _ -> None
      | :? UnaryExpression as expr ->
          let ssss = expr.ToString()
          None
      | _ -> None 
  
  type SqlConnection with
  
negative.code: type DataRow with
      member this.toOption<'a> (key:string) = if this.IsNull(key) then None else Some(unbox<'a> this.[key])
  
  let rec parseDefaultValue (definition: string) (expr: ScalarExpression) = 
      match expr with
      | :? Literal as x ->
          match x.LiteralType with
          | LiteralType.Default | LiteralType.Null -> Some null
  