Changeset 3754


Ignore:
Timestamp:
09/14/03 12:28:06 (19 years ago)
Author:
piso
Message:

type(), BIT_VECTOR_P()

File:
1 edited

Legend:

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

    r3733 r3754  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: DisplacedArray.java,v 1.4 2003-09-13 23:40:54 piso Exp $
     5 * $Id: DisplacedArray.java,v 1.5 2003-09-14 12:28:06 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6161        if (typeSpecifier == Symbol.VECTOR)
    6262            return getRank() == 1 ? T : NIL;
     63        if (typeSpecifier == Symbol.BIT_VECTOR)
     64            return BIT_VECTOR_P();
    6365        if (typeSpecifier instanceof LispClass) {
    6466            final String name = typeSpecifier.getName();
     
    6971            return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    7072        return super.typep(typeSpecifier);
     73    }
     74
     75    public LispObject BIT_VECTOR_P()
     76    {
     77        if (getRank() == 1)
     78            return array.BIT_VECTOR_P();
     79        return NIL;
    7180    }
    7281
Note: See TracChangeset for help on using the changeset viewer.