1 21 22 package org.armedbear.lisp; 23 24 public class FloatingPointUnderflow extends ArithmeticError 25 { 26 public FloatingPointUnderflow() 27 { 28 } 29 30 public FloatingPointUnderflow(LispObject initArgs) 31 throws ConditionThrowable 32 { 33 super(initArgs); 34 } 35 36 public FloatingPointUnderflow(String message) 37 { 38 super(message); 39 } 40 41 public LispObject typeOf() 42 { 43 return Symbol.FLOATING_POINT_UNDERFLOW; 44 } 45 46 public LispClass classOf() 47 { 48 return BuiltInClass.FLOATING_POINT_UNDERFLOW; 49 } 50 51 public LispObject typep(LispObject type) throws ConditionThrowable 52 { 53 if (type == Symbol.FLOATING_POINT_UNDERFLOW) 54 return T; 55 if (type == BuiltInClass.FLOATING_POINT_UNDERFLOW) 56 return T; 57 return super.typep(type); 58 } 59 } 60 | Popular Tags |