Changeset 3713


Ignore:
Timestamp:
09/11/03 16:34:55 (19 years ago)
Author:
piso
Message:

isSubtypeOf(): work in progress.

File:
1 edited

Legend:

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

    r2944 r3713  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: ArrayTypeSpecifier.java,v 1.4 2003-07-15 17:31:17 piso Exp $
     5 * $Id: ArrayTypeSpecifier.java,v 1.5 2003-09-11 16:34:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9090        if (ts instanceof AtomicTypeSpecifier) {
    9191            AtomicTypeSpecifier ats = (AtomicTypeSpecifier) ts;
    92             return type.isSubtypeOf(ats.getType());
     92            return type.isSubtypeOf(ats.TYPE());
    9393        }
    94 
    9594        LispObject subtypep = NIL;
    9695        LispObject validp = NIL;
    97 
    9896        if (ts instanceof ArrayTypeSpecifier) {
    9997            ArrayTypeSpecifier ats = (ArrayTypeSpecifier) ts;
     
    107105            }
    108106        }
    109 
    110         LispObject[] values = new LispObject[2];
    111         values[0] = subtypep;
    112         values[1] = validp;
    113         LispThread.currentThread().setValues(values);
    114         return NIL;
     107        return values(subtypep, validp);
    115108    }
    116109}
Note: See TracChangeset for help on using the changeset viewer.