Changeset 12588
- Timestamp:
- 04/10/10 17:17:08 (11 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/AbstractBitVector.java
r12288 r12588 192 192 } 193 193 194 // Ignores fill pointer.195 @Override196 public LispObject AREF(LispObject index)197 {198 return AREF(Fixnum.getValue(index));199 }200 201 194 @Override 202 195 public LispObject reverse() -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte16.java
r12288 r12588 152 152 catch (ArrayIndexOutOfBoundsException e) { 153 153 badIndex(index, elements.length); 154 return NIL; // Not reached.155 }156 }157 158 // Ignores fill pointer.159 @Override160 public LispObject AREF(LispObject index)161 {162 try {163 return Fixnum.getInstance(elements[Fixnum.getValue(index)]);164 }165 catch (ArrayIndexOutOfBoundsException e) {166 badIndex(Fixnum.getValue(index), elements.length);167 154 return NIL; // Not reached. 168 155 } -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte32.java
r12288 r12588 170 170 { 171 171 badIndex(index, elements.length); 172 return NIL; // Not reached.173 }174 }175 176 @Override177 public LispObject AREF(LispObject index)178 {179 final int idx = Fixnum.getValue(index);180 try181 {182 return number(elements[idx]);183 }184 catch (ArrayIndexOutOfBoundsException e)185 {186 badIndex(idx, elements.length);187 172 return NIL; // Not reached. 188 173 } -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java
r12414 r12588 162 162 { 163 163 badIndex(index, elements.length); 164 return NIL; // Not reached.165 }166 }167 168 @Override169 public LispObject AREF(LispObject index)170 {171 int idx = Fixnum.getValue(index);172 try173 {174 return coerceJavaByteToLispObject(elements[idx]);175 }176 catch (ArrayIndexOutOfBoundsException e)177 {178 badIndex(idx, elements.length);179 164 return NIL; // Not reached. 180 165 } -
trunk/abcl/src/org/armedbear/lisp/ComplexString.java
r12288 r12588 412 412 } 413 413 414 // Ignores fill pointer.415 @Override416 public LispObject AREF(LispObject index)417 {418 return LispCharacter.getInstance(charAt(Fixnum.getValue(index)));419 }420 421 414 @Override 422 415 public void aset(int index, LispObject newValue) -
trunk/abcl/src/org/armedbear/lisp/ComplexVector.java
r12288 r12588 194 194 } 195 195 196 // Ignores fill pointer.197 // FIXME inline198 @Override199 public LispObject AREF(LispObject index)200 {201 return AREF(Fixnum.getValue(index));202 }203 204 196 @Override 205 197 public void aset(int index, LispObject newValue) -
trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte32.java
r12288 r12588 195 195 } 196 196 197 // Ignores fill pointer.198 // FIXME inline199 @Override200 public LispObject AREF(LispObject index)201 {202 return AREF(Fixnum.getValue(index));203 }204 205 197 @Override 206 198 public void aset(int index, LispObject newValue) -
trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte8.java
r12288 r12588 193 193 } 194 194 195 // Ignores fill pointer.196 // FIXME inline197 @Override198 public LispObject AREF(LispObject index)199 {200 return AREF(Fixnum.getValue(index));201 }202 203 195 @Override 204 196 public void aset(int index, int n) -
trunk/abcl/src/org/armedbear/lisp/LispObject.java
r12576 r12588 506 506 } 507 507 508 public LispObject AREF(LispObject index)508 public final LispObject AREF(LispObject index) 509 509 { 510 510 return AREF(Fixnum.getValue(index)); … … 523 523 } 524 524 525 public void aset(LispObject index, LispObject newValue)525 public final void aset(LispObject index, LispObject newValue) 526 526 527 527 { -
trunk/abcl/src/org/armedbear/lisp/SimpleString.java
r12494 r12588 402 402 } 403 403 404 @Override405 public LispObject AREF(LispObject index)406 {407 try {408 return LispCharacter.getInstance(chars[Fixnum.getValue(index)]);409 }410 catch (ArrayIndexOutOfBoundsException e) {411 badIndex(((Fixnum)index).value, capacity);412 return NIL; // Not reached.413 }414 }415 404 416 405 @Override -
trunk/abcl/src/org/armedbear/lisp/SimpleVector.java
r12513 r12588 176 176 177 177 @Override 178 public LispObject AREF(LispObject index)179 {180 int idx = Fixnum.getValue(index);181 try182 {183 return data[idx];184 }185 catch (ArrayIndexOutOfBoundsException e)186 {187 badIndex(idx, data.length);188 return NIL; // Not reached.189 }190 }191 192 @Override193 178 public void aset(int index, LispObject newValue) 194 179 {
Note: See TracChangeset
for help on using the changeset viewer.