Changeset 8162
- Timestamp:
- 11/16/04 02:09:40 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/SlotClass.java
r8087 r8162 3 3 * 4 4 * Copyright (C) 2003-2004 Peter Graves 5 * $Id: SlotClass.java,v 1. 8 2004-11-03 15:39:01piso Exp $5 * $Id: SlotClass.java,v 1.9 2004-11-16 02:09:40 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 79 79 if (arg instanceof BuiltInClass) 80 80 return NIL; 81 return signal(new TypeError(arg, "standard class"));81 return signal(new TypeError(arg, Symbol.STANDARD_CLASS)); 82 82 } 83 83 }; … … 94 94 return second; 95 95 } 96 return signal(new TypeError(first, "standard class"));96 return signal(new TypeError(first, Symbol.STANDARD_CLASS)); 97 97 } 98 98 }; … … 109 109 if (arg instanceof BuiltInClass) 110 110 return NIL; 111 return signal(new TypeError(arg, "standard class"));111 return signal(new TypeError(arg, Symbol.STANDARD_CLASS)); 112 112 } 113 113 }; … … 124 124 return second; 125 125 } 126 return signal(new TypeError(first, "standard class"));126 return signal(new TypeError(first, Symbol.STANDARD_CLASS)); 127 127 } 128 128 }; … … 139 139 if (arg instanceof BuiltInClass) 140 140 return NIL; 141 return signal(new TypeError(arg, "standard class"));141 return signal(new TypeError(arg, Symbol.STANDARD_CLASS)); 142 142 } 143 143 }; … … 154 154 return second; 155 155 } 156 return signal(new TypeError(first, "standard class"));156 return signal(new TypeError(first, Symbol.STANDARD_CLASS)); 157 157 } 158 158 }; … … 169 169 if (arg instanceof BuiltInClass) 170 170 return NIL; 171 return signal(new TypeError(arg, "standard class"));171 return signal(new TypeError(arg, Symbol.STANDARD_CLASS)); 172 172 } 173 173 }; … … 184 184 return second; 185 185 } 186 return signal(new TypeError(first, "standard class"));186 return signal(new TypeError(first, Symbol.STANDARD_CLASS)); 187 187 } 188 188 };
Note: See TracChangeset
for help on using the changeset viewer.