Changeset 4616


Ignore:
Timestamp:
11/02/03 19:58:17 (19 years ago)
Author:
piso
Message:

classOf(), typep()

File:
1 edited

Legend:

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

    r4116 r4616  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: TwoWayStream.java,v 1.6 2003-09-28 20:17:06 piso Exp $
     5 * $Id: TwoWayStream.java,v 1.7 2003-11-02 19:58:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4848    }
    4949
    50     public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable
     50    public LispClass classOf()
    5151    {
    52         if (typeSpecifier == Symbol.TWO_WAY_STREAM)
     52        return BuiltInClass.TWO_WAY_STREAM;
     53    }
     54
     55    public LispObject typep(LispObject type) throws ConditionThrowable
     56    {
     57        if (type == Symbol.TWO_WAY_STREAM)
    5358            return T;
    54         return super.typep(typeSpecifier);
     59        if (type == BuiltInClass.TWO_WAY_STREAM)
     60            return T;
     61        return super.typep(type);
    5562    }
    5663
Note: See TracChangeset for help on using the changeset viewer.