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