Changeset 5824


Ignore:
Timestamp:
02/14/04 18:51:08 (17 years ago)
Author:
piso
Message:

getStringValue(), subseq()

File:
1 edited

Legend:

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

    r5821 r5824  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: NilVector.java,v 1.3 2004-02-14 17:26:21 piso Exp $
     5 * $Id: NilVector.java,v 1.4 2004-02-14 18:51:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3636            accessError();
    3737        return new char[0];
     38    }
     39
     40    public String getStringValue() throws ConditionThrowable
     41    {
     42        if (capacity != 0)
     43            accessError();
     44        return "";
    3845    }
    3946
     
    157164    public LispObject subseq(int start, int end) throws ConditionThrowable
    158165    {
     166        if (capacity == 0 && start == 0 && end == 0)
     167            return this;
    159168        return accessError();
    160169    }
Note: See TracChangeset for help on using the changeset viewer.