Changeset 4284


Ignore:
Timestamp:
10/10/03 14:46:21 (19 years ago)
Author:
piso
Message:

%SET-CLASS-DIRECT-SUPERCLASSES

File:
1 edited

Legend:

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

    r4280 r4284  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispClass.java,v 1.29 2003-10-10 14:16:19 piso Exp $
     5 * $Id: LispClass.java,v 1.30 2003-10-10 14:46:21 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7272    }
    7373
    74     public final void setDirectSuperclasses(Cons directSuperclasses)
     74    public final void setDirectSuperclasses(LispObject directSuperclasses)
    7575    {
    7676        this.directSuperclasses = directSuperclasses;
     
    253253    };
    254254
     255    // ### %set-class-direct-superclasses
     256    private static final Primitive2 _SET_CLASS_DIRECT_SUPERCLASSES =
     257        new Primitive2("%set-class-direct-superclasses", PACKAGE_SYS, false)
     258    {
     259        public LispObject execute(LispObject first, LispObject second)
     260            throws ConditionThrowable
     261        {
     262            if (first instanceof LispClass) {
     263                ((LispClass)first).setDirectSuperclasses(second);
     264                return second;
     265            }
     266            throw new ConditionThrowable(new TypeError(first, "class"));
     267        }
     268    };
     269
    255270    // ### class-precedence-list
    256271    private static final Primitive1 CLASS_PRECEDENCE_LIST =
Note: See TracChangeset for help on using the changeset viewer.