\[ \boxed { {\frac {\rm d}{{\rm d}x}}y \left ( x \right ) ={\frac {1}{x \left ( 1+x \right ) } \left ( {{\rm e}^{-{\frac {y \left ( x \right ) }{x}}}}y \left ( x \right ) x+{{\rm e}^{-{\frac {y \left ( x \right ) }{x}}}}y \left ( x \right ) +{{\rm e}^{-{\frac {y \left ( x \right ) }{x}}}}{x}^{2}+{{\rm e}^{-{\frac {y \left ( x \right ) }{x}}}}x+x \right ) {{\rm e}^{{\frac {y \left ( x \right ) }{x}}}}}=0} \]
Mathematica: cpu = 1.365673 (sec), leaf count = 23 \[ \left \{\left \{y(x)\to -x \log \left (-\frac {\log (x+1)-c_1}{x}\right )\right \}\right \} \]
Maple: cpu = 0.265 (sec), leaf count = 21 \[ \left \{ y \left ( x \right ) =-\ln \left ( -{\frac {\ln \left ( 1+x \right ) -{\it \_C1}}{x}} \right ) x \right \} \]