I used Mathematica to find a limit:
In[1]:= Limit[(Log[1 - x] - Sin[x])/(1 - Cos[x]^2), x -> 0]
Out[1]= -\[Infinity]
But the function (Log[1 - x] - Sin[x])/(1 - Cos[x]^2) doesn't have the limit -[Infinity] in the point x=0.
It's easy to observe that for x->+0 the limit is -[Infinity], and for x->-0 the limit is +[Infinity].
The graph confirms this fact:
Plot[(Log[1 - x] - Sin[x])/(1 - Cos[x]^2), {x, -2, 1}]
Is this a Mathematica error?