Changeset 3715


Ignore:
Timestamp:
09/11/03 17:12:23 (19 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

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

    r3701 r3715  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Cons.java,v 1.22 2003-09-11 16:04:09 piso Exp $
     5 * $Id: Cons.java,v 1.23 2003-09-11 17:12:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5353    public LispObject typep(LispObject typeSpecifier) throws LispError
    5454    {
     55        if (typeSpecifier instanceof Cons)
     56            return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    5557        if (typeSpecifier == Symbol.LIST)
    5658            return T;
Note: See TracChangeset for help on using the changeset viewer.