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