Changeset 6005


Ignore:
Timestamp:
02/27/04 14:32:59 (17 years ago)
Author:
piso
Message:

toString()

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r6000 r6005  
    155155    }
    156156
     157    public String toString()
     158    {
     159        StringBuffer sb = new StringBuffer("#(");
     160        try {
     161            final LispObject printLength = _PRINT_LENGTH_.symbolValue();
     162            final int limit;
     163            if (printLength instanceof Fixnum)
     164                limit = Math.min(length(), ((Fixnum)printLength).value);
     165            else
     166                limit = length();
     167            for (int i = 0; i < limit; i++) {
     168                if (i > 0)
     169                    sb.append(' ');
     170                sb.append(get(i));
     171            }
     172            if (limit < length())
     173                sb.append(" ...");
     174            sb.append(')');
     175        }
     176        catch (ConditionThrowable t) {
     177            // Shouldn't happen.
     178            Debug.trace(t);
     179        }
     180        return sb.toString();
     181    }
     182
    157183    public abstract AbstractVector adjustVector(int size,
    158184                                                LispObject initialElement,
  • trunk/j/src/org/armedbear/lisp/Cons.java

    r5898 r6005  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Cons.java,v 1.36 2004-02-23 14:51:22 piso Exp $
     5 * $Id: Cons.java,v 1.37 2004-02-27 14:32:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    247247            final int limit;
    248248            if (printLength instanceof Fixnum)
    249                 limit = ((Fixnum)printLength).getValue();
     249                limit = ((Fixnum)printLength).value;
    250250            else
    251251                limit = Integer.MAX_VALUE;
Note: See TracChangeset for help on using the changeset viewer.