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