Changeset 4258
- Timestamp:
- 10/08/03 18:09:29 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4253 r4258 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.46 5 2003-10-08 17:26:49 piso Exp $5 * $Id: Primitives.java,v 1.466 2003-10-08 18:09:29 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 4148 4148 LispObject third) throws ConditionThrowable 4149 4149 { 4150 if (first instanceof AbstractVector) { 4151 ((AbstractVector)first).set(Fixnum.getValue(second), third); 4152 return third; 4153 } 4150 4154 if (first instanceof Cons) { 4151 4155 int index = Fixnum.getValue(second); … … 4164 4168 ++i; 4165 4169 } 4166 } else if (first instanceof AbstractVector) { 4167 ((AbstractVector)first).set(Fixnum.getValue(second), third); 4168 return third; 4169 } else 4170 throw new ConditionThrowable(new TypeError(first, "sequence")); 4170 } 4171 throw new ConditionThrowable(new TypeError(first, "sequence")); 4171 4172 } 4172 4173 };
Note: See TracChangeset
for help on using the changeset viewer.