Changeset 4326


Ignore:
Timestamp:
10/12/03 16:13:54 (19 years ago)
Author:
piso
Message:

ALLOCATE-STD-INSTANCE: added specific support for generic function objects.

File:
1 edited

Legend:

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

    r4321 r4326  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardObject.java,v 1.7 2003-10-12 03:37:52 piso Exp $
     5 * $Id: StandardObject.java,v 1.8 2003-10-12 16:13:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3232    }
    3333
    34     private StandardObject(LispClass cls, LispObject slots)
     34    protected StandardObject(LispClass cls, LispObject slots)
    3535    {
    3636        this.cls = cls;
     
    105105            if (first == BuiltInClass.STANDARD_CLASS)
    106106                return new StandardClass();
    107             if (first instanceof LispClass)
     107            if (first instanceof LispClass) {
     108                Symbol symbol = ((LispClass)first).getSymbol();
     109                if (symbol == Symbol.STANDARD_GENERIC_FUNCTION)
     110                    return new GenericFunction((LispClass)first, second);
    108111                return new StandardObject((LispClass)first, second);
     112            }
    109113            throw new ConditionThrowable(new TypeError(first, "class"));
    110114        }
Note: See TracChangeset for help on using the changeset viewer.