Changeset 5956


Ignore:
Timestamp:
02/25/04 03:10:51 (17 years ago)
Author:
piso
Message:

Work in progress.

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

Legend:

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

    r5939 r5956  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: AbstractBitVector.java,v 1.1 2004-02-24 22:19:50 piso Exp $
     5 * $Id: AbstractBitVector.java,v 1.2 2004-02-25 03:06:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    167167    }
    168168
    169     protected abstract int getBit(int index);
     169    protected abstract int getBit(int index) throws ConditionThrowable;
    170170
    171     protected abstract void setBit(int index);
     171    protected abstract void setBit(int index) throws ConditionThrowable;
    172172
    173     protected abstract void clearBit(int index);
     173    protected abstract void clearBit(int index) throws ConditionThrowable;
    174174}
  • trunk/j/src/org/armedbear/lisp/SimpleBitVector.java

    r5939 r5956  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: SimpleBitVector.java,v 1.1 2004-02-24 22:21:00 piso Exp $
     5 * $Id: SimpleBitVector.java,v 1.2 2004-02-25 03:05:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
     24// "The type of a bit vector that is not displaced to another array, has no
     25// fill pointer, and is not expressly adjustable is a subtype of type SIMPLE-
     26// BIT-VECTOR."
    2427public final class SimpleBitVector extends AbstractBitVector
    2528{
  • trunk/j/src/org/armedbear/lisp/make_array.java

    r5953 r5956  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: make_array.java,v 1.18 2004-02-25 01:52:26 piso Exp $
     5 * $Id: make_array.java,v 1.19 2004-02-25 03:10:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6060            dimv[0] = Fixnum.getValue(dimensions);
    6161        if (displacedTo != NIL) {
     62            // FIXME Make sure element type (if specified) is compatible with
     63            // displaced-to array.
    6264            final AbstractArray array = checkArray(displacedTo);
    6365            if (initialElementProvided != NIL)
     
    7678                        s.setFillPointer(fillPointer);
    7779                    return s;
     80                } else if (array.getElementType() == Symbol.BIT) {
     81                    ComplexBitVector v = new ComplexBitVector(dimv[0], array, displacement);
     82                    if (fillPointer != NIL)
     83                        v.setFillPointer(fillPointer);
     84                    return v;
    7885                } else {
    7986                    ComplexVector v = new ComplexVector(dimv[0], array, displacement);
Note: See TracChangeset for help on using the changeset viewer.