Changeset 12521
- Timestamp:
- 03/10/10 22:09:13 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/SlotDefinition.java
r12431 r12521 71 71 } 72 72 73 public static SlotDefinition checkSlotDefin ation(LispObject obj) {73 public static SlotDefinition checkSlotDefinition(LispObject obj) { 74 74 if (obj instanceof SlotDefinition) return (SlotDefinition)obj; 75 75 return (SlotDefinition)type_error(obj, Symbol.SLOT_DEFINITION); … … 118 118 public LispObject execute(LispObject arg) 119 119 { 120 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_NAME];120 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_NAME]; 121 121 } 122 122 }; … … 131 131 132 132 { 133 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_NAME] = second;133 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_NAME] = second; 134 134 return second; 135 135 } … … 143 143 public LispObject execute(LispObject arg) 144 144 { 145 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITFUNCTION];145 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITFUNCTION]; 146 146 } 147 147 }; … … 156 156 157 157 { 158 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_INITFUNCTION] = second;158 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_INITFUNCTION] = second; 159 159 return second; 160 160 } … … 169 169 public LispObject execute(LispObject arg) 170 170 { 171 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITFORM];171 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITFORM]; 172 172 } 173 173 }; … … 182 182 183 183 { 184 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_INITFORM] = second;184 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_INITFORM] = second; 185 185 return second; 186 186 } … … 194 194 public LispObject execute(LispObject arg) 195 195 { 196 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITARGS];196 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_INITARGS]; 197 197 } 198 198 }; … … 207 207 208 208 { 209 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_INITARGS] = second;209 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_INITARGS] = second; 210 210 return second; 211 211 } … … 220 220 public LispObject execute(LispObject arg) 221 221 { 222 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_READERS];222 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_READERS]; 223 223 } 224 224 }; … … 233 233 234 234 { 235 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_READERS] = second;235 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_READERS] = second; 236 236 return second; 237 237 } … … 246 246 public LispObject execute(LispObject arg) 247 247 { 248 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_WRITERS];248 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_WRITERS]; 249 249 } 250 250 }; … … 259 259 260 260 { 261 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_WRITERS] = second;261 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_WRITERS] = second; 262 262 return second; 263 263 } … … 272 272 public LispObject execute(LispObject arg) 273 273 { 274 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION];274 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION]; 275 275 } 276 276 }; … … 285 285 286 286 { 287 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION] = second;287 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION] = second; 288 288 return second; 289 289 } … … 298 298 public LispObject execute(LispObject arg) 299 299 { 300 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION_CLASS];300 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION_CLASS]; 301 301 } 302 302 }; … … 311 311 312 312 { 313 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION_CLASS] = second;313 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_ALLOCATION_CLASS] = second; 314 314 return second; 315 315 } … … 323 323 public LispObject execute(LispObject arg) 324 324 { 325 return checkSlotDefin ation(arg).slots[SlotDefinitionClass.SLOT_INDEX_LOCATION];325 return checkSlotDefinition(arg).slots[SlotDefinitionClass.SLOT_INDEX_LOCATION]; 326 326 } 327 327 }; … … 335 335 336 336 { 337 checkSlotDefin ation(first).slots[SlotDefinitionClass.SLOT_INDEX_LOCATION] = second;337 checkSlotDefinition(first).slots[SlotDefinitionClass.SLOT_INDEX_LOCATION] = second; 338 338 return second; 339 339 }
Note: See TracChangeset
for help on using the changeset viewer.