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