Modification -

src/migl/lisp/LispImpl.java

@@ -118,8 +118,8 @@ public class LispImpl implements Lisp {
 				case 1:
 					LispElement<?> elt = getElement(lisp.car());
 					if(elt.value.getClass() == Double.class) {
-						//return LispElement.generate(elt.toNumber() * -1); Pour eviter pb pitest qui remplace * par / or *-1 == /-1
-						return LispElement.generate(Double.valueOf("-" + elt.toString()));
+						//return LispElement.generate(elt.toNumber() * -1); //Pb pitest qui remplace * par / or *-1 == /-1
+						return LispElement.generate(elt.toNumber() - (elt.toNumber() * 2));
 					}
 					return LispElement.generate(elt.toInt().multiply(new BigInteger("-1")));
 				case 2: