Changeset 4258

Timestamp:

10/08/03 18:09:29 (19 years ago)

Author:

piso

Message:

%SET-ELT: put vector case first.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.465 2003-10-08 17:26:49 piso Exp $
+ * $Id: Primitives.java,v 1.466 2003-10-08 18:09:29 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4148 +4148 @@
             LispObject third) throws ConditionThrowable
         {
+            if (first instanceof AbstractVector) {
+                ((AbstractVector)first).set(Fixnum.getValue(second), third);
+                return third;
+            }
             if (first instanceof Cons) {
                 int index = Fixnum.getValue(second);
@@ -4164 +4168 @@
                     ++i;
                 }
-            } else if (first instanceof AbstractVector) {
-                ((AbstractVector)first).set(Fixnum.getValue(second), third);
-                return third;
-            } else
-                throw new ConditionThrowable(new TypeError(first, "sequence"));
+            }
+            throw new ConditionThrowable(new TypeError(first, "sequence"));
         }
     };