Changeset 5910


Ignore:
Timestamp:
02/24/04 00:43:11 (17 years ago)
Author:
piso
Message:

hasFillPointer()

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

Legend:

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

    r5908 r5910  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: AbstractArray.java,v 1.15 2004-02-23 19:56:55 piso Exp $
     5 * $Id: AbstractArray.java,v 1.16 2004-02-24 00:42:01 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6262    {
    6363        return LispThread.currentThread().setValues(NIL, Fixnum.ZERO);
     64    }
     65
     66    public boolean hasFillPointer()
     67    {
     68        return false;
    6469    }
    6570
  • trunk/j/src/org/armedbear/lisp/AbstractVector.java

    r5908 r5910  
    2424{
    2525    protected int fillPointer = -1; // -1 indicates no fill pointer.
     26
     27    public boolean hasFillPointer()
     28    {
     29        return fillPointer >= 0;
     30    }
    2631
    2732    public LispObject typep(LispObject type) throws ConditionThrowable
  • trunk/j/src/org/armedbear/lisp/DisplacedArray.java

    r5909 r5910  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: DisplacedArray.java,v 1.26 2004-02-24 00:31:35 piso Exp $
     5 * $Id: DisplacedArray.java,v 1.27 2004-02-24 00:43:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4747            size *= dimensions[i];
    4848        return size;
     49    }
     50
     51    public boolean hasFillPointer()
     52    {
     53        return fillPointer >= 0;
    4954    }
    5055
  • trunk/j/src/org/armedbear/lisp/SimpleString.java

    r5908 r5910  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: SimpleString.java,v 1.3 2004-02-23 19:56:58 piso Exp $
     5 * $Id: SimpleString.java,v 1.4 2004-02-24 00:41:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9090    {
    9191        return T;
     92    }
     93
     94    public boolean hasFillPointer()
     95    {
     96        return false;
    9297    }
    9398
Note: See TracChangeset for help on using the changeset viewer.