Changeset 5921


Ignore:
Timestamp:
02/24/04 12:13:02 (17 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

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

    r5920 r5921  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: SimpleVector.java,v 1.2 2004-02-24 11:24:46 piso Exp $
     5 * $Id: SimpleVector.java,v 1.3 2004-02-24 12:13:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5959    {
    6060        return BuiltInClass.VECTOR;
     61    }
     62
     63    public LispObject typep(LispObject type) throws ConditionThrowable
     64    {
     65        if (type == Symbol.SIMPLE_VECTOR)
     66            return T;
     67        if (type == Symbol.SIMPLE_ARRAY)
     68            return T;
     69        // FIXME BuiltInClass.SIMPLE_VECTOR, BuiltInClass.SIMPLE_ARRAY
     70        return super.typep(type);
    6171    }
    6272
Note: See TracChangeset for help on using the changeset viewer.