Changeset 10114


Ignore:
Timestamp:
10/15/05 17:06:40 (16 years ago)
Author:
piso
Message:

adjustVector(int, LispObject, LispObject)

File:
1 edited

Legend:

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

    r9274 r10114  
    22 * ComplexBitVector.java
    33 *
    4  * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: ComplexBitVector.java,v 1.12 2005-05-28 04:02:06 piso Exp $
     4 * Copyright (C) 2003-2005 Peter Graves
     5 * $Id: ComplexBitVector.java,v 1.13 2005-10-15 17:06:40 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    163163            // Fall through...
    164164        }
    165         signal(new TypeError(newValue, Symbol.BIT));
     165        signalTypeError(newValue, Symbol.BIT);
    166166    }
    167167
     
    311311            if (initialContents != NIL) {
    312312                bits = new long[size];
     313                capacity = newCapacity;
    313314                if (initialContents.listp()) {
    314315                    LispObject list = initialContents;
     
    321322                        aset(i, initialContents.elt(i));
    322323                } else
    323                     signal(new TypeError(initialContents, Symbol.SEQUENCE));
     324                    signalTypeError(initialContents, Symbol.SEQUENCE);
    324325            } else {
    325326                long[] newBits = new long[size];
Note: See TracChangeset for help on using the changeset viewer.