Changeset 4258


Ignore:
Timestamp:
10/08/03 18:09:29 (19 years ago)
Author:
piso
Message:

%SET-ELT: put vector case first.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r4253 r4258  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.465 2003-10-08 17:26:49 piso Exp $
     5 * $Id: Primitives.java,v 1.466 2003-10-08 18:09:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    41484148            LispObject third) throws ConditionThrowable
    41494149        {
     4150            if (first instanceof AbstractVector) {
     4151                ((AbstractVector)first).set(Fixnum.getValue(second), third);
     4152                return third;
     4153            }
    41504154            if (first instanceof Cons) {
    41514155                int index = Fixnum.getValue(second);
     
    41644168                    ++i;
    41654169                }
    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"));
    41714172        }
    41724173    };
Note: See TracChangeset for help on using the changeset viewer.