1 21 22 package org.armedbear.lisp; 23 24 public class CellError extends LispError 25 { 26 private final LispObject cellName; 27 28 public CellError(LispObject initArgs) throws ConditionThrowable 29 { 30 LispObject cellName = NIL; 31 LispObject first, second; 32 while (initArgs != NIL) { 33 first = initArgs.car(); 34 initArgs = initArgs.cdr(); 35 second = initArgs.car(); 36 initArgs = initArgs.cdr(); 37 if (first == Keyword.NAME) 38 cellName = second; 39 } 40 this.cellName = cellName; 41 } 42 43 public final LispObject getCellName() 44 { 45 return cellName; 46 } 47 48 public LispObject typeOf() 49 { 50 return Symbol.CELL_ERROR; 51 } 52 53 public LispClass classOf() 54 { 55 return BuiltInClass.CELL_ERROR; 56 } 57 58 public LispObject typep(LispObject type) throws ConditionThrowable 59 { 60 if (type == Symbol.CELL_ERROR) 61 return T; 62 if (type == BuiltInClass.CELL_ERROR) 63 return T; 64 return super.typep(type); 65 } 66 } 67 | Popular Tags |