Changeset 4626


Ignore:
Timestamp:
11/03/03 15:24:13 (18 years ago)
Author:
piso
Message:

classOf(), typep()

File:
1 edited

Legend:

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

    r4438 r4626  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Pathname.java,v 1.17 2003-10-17 17:34:13 piso Exp $
     5 * $Id: Pathname.java,v 1.18 2003-11-03 15:24:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5353    }
    5454
    55     public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable
    56     {
    57         if (typeSpecifier == Symbol.PATHNAME)
     55    public LispClass classOf()
     56    {
     57        return BuiltInClass.PATHNAME;
     58    }
     59
     60    public LispObject typep(LispObject type) throws ConditionThrowable
     61    {
     62        if (type == Symbol.PATHNAME)
    5863            return T;
    59         return super.typep(typeSpecifier);
     64        if (type == BuiltInClass.PATHNAME)
     65            return T;
     66        return super.typep(type);
    6067    }
    6168
Note: See TracChangeset for help on using the changeset viewer.