Changeset 679


Ignore:
Timestamp:
02/09/03 18:02:08 (19 years ago)
Author:
piso
Message:
File:
1 edited

Legend:

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

    r568 r679  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Vector.java,v 1.1 2003-01-17 19:43:34 piso Exp $
     5 * $Id: Vector.java,v 1.2 2003-02-09 18:02:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public final class Vector extends LispObject implements SequenceType,
     24public final class Vector extends AbstractVector implements SequenceType,
    2525    VectorType
    2626{
     
    142142    }
    143143
    144     private void badIndex(long index) throws LispException
    145     {
    146         StringBuffer sb = new StringBuffer("invalid array index ");
    147         sb.append(index);
    148         sb.append(" for ");
    149         sb.append(toString());
    150         if (length() > 0) {
    151             sb.append(" (should be >= 0 and < ");
    152             sb.append(length);
    153             sb.append(')');
    154         }
    155         throw new LispException(sb.toString());
    156     }
    157 
    158144    public String toString()
    159145    {
Note: See TracChangeset for help on using the changeset viewer.