Ver código fonte

Ajout gestion long

Arthur Brandao 6 anos atrás
pai
commit
d7ffad5064
1 arquivos alterados com 4 adições e 0 exclusões
  1. 4 0
      src/migl/lisp/LispElement.java

+ 4 - 0
src/migl/lisp/LispElement.java

@@ -175,6 +175,10 @@ public class LispElement {
 		else if(elt.getClass() == Boolean.class) {
 			elt = LispBoolean.valueOf((boolean) elt);
 		}
+		else if(elt.getClass() == Long.class) {
+			Long l = (Long) elt;
+			elt = l.doubleValue();
+		}
 		else if(elt.getClass() != BigInteger.class && elt.getClass() != Double.class && elt.getClass() != LispBoolean.class && elt.getClass() != String.class) {
 			throw new IllegalArgumentException("Object class is not a Lisp element");
 		}