Changeset 3703


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

Work in progress.

File:
1 edited

Legend:

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

    r3378 r3703  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: TypeSpecifier.java,v 1.3 2003-08-14 01:57:03 piso Exp $
     5 * $Id: TypeSpecifier.java,v 1.4 2003-09-11 16:05:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public abstract class TypeSpecifier extends Lisp
     24public abstract class TypeSpecifier extends LispObject
    2525{
    2626    public static TypeSpecifier getInstance(LispObject arg) throws LispError
     
    4444    public LispObject isSubtypeOf(TypeSpecifier ts) throws LispError
    4545    {
    46         LispObject[] values = new LispObject[2];
    47         values[0] = NIL;
    48         values[1] = NIL;
    49         LispThread.currentThread().setValues(values);
    50         return NIL;
     46        return values(NIL, NIL);
    5147    }
    5248}
Note: See TracChangeset for help on using the changeset viewer.