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