Modif -

src/migl/lisp/LispImpl.java

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