Changeset 5943


Ignore:
Timestamp:
02/24/04 22:24:07 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5938 r5943  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: make_array.java,v 1.16 2004-02-24 21:00:29 piso Exp $
     5 * $Id: make_array.java,v 1.17 2004-02-24 22:24:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    113113                else
    114114                    v = new SimpleString(size);
    115             } else if (upgradedType == Symbol.BIT)
    116                 v = new BitVector(size);
    117             else if (upgradedType == NIL)
     115            } else if (upgradedType == Symbol.BIT) {
     116                if (fillPointer != NIL || adjustable != NIL)
     117                    v = new BitVector(size);
     118                else
     119                    v = new SimpleBitVector(size);
     120            } else if (upgradedType == NIL)
    118121                v = new NilVector(size);
    119122            else {
Note: See TracChangeset for help on using the changeset viewer.