Changeset 4612


Ignore:
Timestamp:
11/02/03 18:36:16 (19 years ago)
Author:
piso
Message:

METHOD

File:
1 edited

Legend:

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

    r4611 r4612  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.13 2003-11-02 18:14:46 piso Exp $
     5 * $Id: BuiltInClass.java,v 1.14 2003-11-02 18:36:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9797    public static final BuiltInClass LIST                             = addClass(Symbol.LIST);
    9898    public static final BuiltInClass LOGICAL_PATHNAME                 = addClass(Symbol.LOGICAL_PATHNAME);
    99     public static final BuiltInClass METHOD                           = addClass(Symbol.METHOD);
     99//     public static final BuiltInClass METHOD                           = addClass(Symbol.METHOD);
    100100    public static final BuiltInClass METHOD_COMBINATION               = addClass(Symbol.METHOD_COMBINATION);
    101101    public static final BuiltInClass NULL                             = addClass(Symbol.NULL);
     
    164164    static {
    165165        addClass(Symbol.GENERIC_FUNCTION, GENERIC_FUNCTION);
     166    }
     167
     168    public static final StandardClass METHOD =
     169        new StandardClass(Symbol.METHOD, list1(STANDARD_OBJECT));
     170    static {
     171        addClass(Symbol.METHOD, METHOD);
    166172    }
    167173
     
    246252        LOGICAL_PATHNAME.setDirectSuperclass(PATHNAME);
    247253        LOGICAL_PATHNAME.setCPL(LOGICAL_PATHNAME, PATHNAME, CLASS_T);
    248         METHOD.setDirectSuperclass(CLASS_T);
    249         METHOD.setCPL(METHOD, CLASS_T);
     254        METHOD.setDirectSuperclass(STANDARD_OBJECT);
     255        METHOD.setCPL(METHOD, STANDARD_OBJECT, CLASS_T);
    250256        METHOD_COMBINATION.setDirectSuperclass(CLASS_T);
    251257        METHOD_COMBINATION.setCPL(METHOD_COMBINATION, CLASS_T);
Note: See TracChangeset for help on using the changeset viewer.