Changeset 3849


Ignore:
Timestamp:
09/17/03 18:07:34 (19 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

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

    r3847 r3849  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispCharacter.java,v 1.23 2003-09-17 15:18:53 piso Exp $
     5 * $Id: LispCharacter.java,v 1.24 2003-09-17 18:07:34 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5858    }
    5959
    60     public LispObject typep(LispObject typeSpecifier) throws LispError
     60    public LispObject typep(LispObject type) throws LispError
    6161    {
    62         if (typeSpecifier == Symbol.CHARACTER)
     62        if (type == Symbol.CHARACTER)
    6363            return T;
    64         if (typeSpecifier == LispClass.CHARACTER)
     64        if (type == LispClass.CHARACTER)
    6565            return T;
    66         if (typeSpecifier == Symbol.BASE_CHAR)
     66        if (type == Symbol.BASE_CHAR)
    6767            return T;
    68         if (typeSpecifier == Symbol.STANDARD_CHAR)
     68        if (type == Symbol.STANDARD_CHAR)
    6969            return isStandardChar();
    70         if (typeSpecifier == Type.CHARACTER)
    71             return T;
    72         if (typeSpecifier == Type.BASE_CHAR)
    73             return T;
    74         if (typeSpecifier == Type.STANDARD_CHAR)
    75             return isStandardChar();
    76         return super.typep(typeSpecifier);
     70        return super.typep(type);
    7771    }
    7872
Note: See TracChangeset for help on using the changeset viewer.