Changeset 10315


Ignore:
Timestamp:
11/01/05 16:42:49 (16 years ago)
Author:
piso
Message:

initializeStandardClasses(): CONDITION.setDirectDefaultInitargs(...)

File:
1 edited

Legend:

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

    r10304 r10315  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardClass.java,v 1.40 2005-11-01 01:34:42 piso Exp $
     5 * $Id: StandardClass.java,v 1.41 2005-11-01 16:42:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    214214    }
    215215
    216     public static void initializeStandardClasses()
     216    public static void initializeStandardClasses() throws ConditionThrowable
    217217    {
    218218        // We need to call setDirectSuperclass() here for classes that have a
     
    246246                                     list1(Symbol.SIMPLE_CONDITION_FORMAT_ARGUMENTS),
    247247                                     NIL)));
     248        CONDITION.setDirectDefaultInitargs(list2(Keyword.FORMAT_ARGUMENTS,
     249                                                 // FIXME
     250                                                 new Closure(list3(Symbol.LAMBDA, NIL, NIL),
     251                                                             new Environment())));
    248252        CONTROL_ERROR.setCPL(CONTROL_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    249253                             STANDARD_OBJECT, BuiltInClass.CLASS_T);
Note: See TracChangeset for help on using the changeset viewer.