Changeset 3847


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

classOf(), typep()

File:
1 edited

Legend:

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

    r3832 r3847  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispCharacter.java,v 1.22 2003-09-16 19:01:08 piso Exp $
     5 * $Id: LispCharacter.java,v 1.23 2003-09-17 15:18:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5353    }
    5454
     55    public LispClass classOf()
     56    {
     57        return LispClass.CHARACTER;
     58    }
     59
    5560    public LispObject typep(LispObject typeSpecifier) throws LispError
    5661    {
    5762        if (typeSpecifier == Symbol.CHARACTER)
     63            return T;
     64        if (typeSpecifier == LispClass.CHARACTER)
    5865            return T;
    5966        if (typeSpecifier == Symbol.BASE_CHAR)
Note: See TracChangeset for help on using the changeset viewer.