예제 #1
0
 public static gnu.math.Numeric asNumber(Object arg) {
   if (arg instanceof Char) return gnu.math.IntNum.make(((Char) arg).intValue());
   return (gnu.math.Numeric) arg;
 }
예제 #2
0
 /** Get a CommonLisp character object. */
 public static Object getCharacter(int c) {
   if (charIsInt) return gnu.math.IntNum.make(c);
   else return Char.make((char) c);
 }