Changeset 3844


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

classOf(), typep()

File:
1 edited

Legend:

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

    r3791 r3844  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.54 2003-09-15 05:01:25 piso Exp $
     5 * $Id: LispObject.java,v 1.55 2003-09-17 15:12:15 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3636    public LispClass classOf()
    3737    {
    38         return LispClass.findClass(T);
     38        return LispClass.CLASS_T;
    3939    }
    4040
     
    4242    {
    4343        if (typeSpecifier == T)
     44            return T;
     45        if (typeSpecifier == LispClass.CLASS_T)
    4446            return T;
    4547        if (typeSpecifier == Symbol.ATOM)
Note: See TracChangeset for help on using the changeset viewer.