Changeset 14480


Ignore:
Timestamp:
04/24/13 12:51:19 (9 years ago)
Author:
rschlatte
Message:

remove some calls to intern

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r14476 r14480  
    393393           new SlotDefinition(symFinalizedP, list(Symbol.CLASS_FINALIZED_P), constantlyNil),
    394394           new SlotDefinition(Symbol._DOCUMENTATION,
    395                               list(PACKAGE_MOP.intern("CLASS-DOCUMENTATION")),
     395                              list(Symbol.CLASS_DOCUMENTATION),
    396396                              constantlyNil, list(internKeyword("DOCUMENTATION"))));
    397397  }
     
    596596    ARITHMETIC_ERROR.setDirectSlotDefinitions(
    597597      list(new SlotDefinition(Symbol.OPERATION,
    598                                list(PACKAGE_CL.intern("ARITHMETIC-ERROR-OPERATION"))),
     598                               list(Symbol.ARITHMETIC_ERROR_OPERATION)),
    599599            new SlotDefinition(Symbol.OPERANDS,
    600                                list(PACKAGE_CL.intern("ARITHMETIC-ERROR-OPERANDS")))));
     600                               list(Symbol.ARITHMETIC_ERROR_OPERANDS))));
    601601    BUILT_IN_CLASS.setCPL(BUILT_IN_CLASS, CLASS, SPECIALIZER, METAOBJECT, STANDARD_OBJECT,
    602602                          BuiltInClass.CLASS_T);
     
    630630    FILE_ERROR.setDirectSlotDefinitions(
    631631      list(new SlotDefinition(Symbol.PATHNAME,
    632                                list(PACKAGE_CL.intern("FILE-ERROR-PATHNAME")))));
     632                               list(Symbol.FILE_ERROR_PATHNAME))));
    633633    FLOATING_POINT_INEXACT.setCPL(FLOATING_POINT_INEXACT, ARITHMETIC_ERROR,
    634634                                  ERROR, SERIOUS_CONDITION, CONDITION,
     
    684684    PACKAGE_ERROR.setDirectSlotDefinitions(
    685685      list(new SlotDefinition(Symbol.PACKAGE,
    686                                list(PACKAGE_CL.intern("PACKAGE-ERROR-PACKAGE")))));
     686                               list(Symbol.PACKAGE_ERROR_PACKAGE))));
    687687    PARSE_ERROR.setCPL(PARSE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    688688                       STANDARD_OBJECT, BuiltInClass.CLASS_T);
     
    691691    PRINT_NOT_READABLE.setDirectSlotDefinitions(
    692692      list(new SlotDefinition(Symbol.OBJECT,
    693                                list(PACKAGE_CL.intern("PRINT-NOT-READABLE-OBJECT")))));
     693                               list(Symbol.PRINT_NOT_READABLE_OBJECT))));
    694694    PROGRAM_ERROR.setCPL(PROGRAM_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    695695                         STANDARD_OBJECT, BuiltInClass.CLASS_T);
     
    728728    STREAM_ERROR.setDirectSlotDefinitions(
    729729      list(new SlotDefinition(Symbol.STREAM,
    730                                list(PACKAGE_CL.intern("STREAM-ERROR-STREAM")))));
     730                               list(Symbol.STREAM_ERROR_STREAM))));
    731731    STYLE_WARNING.setCPL(STYLE_WARNING, WARNING, CONDITION, STANDARD_OBJECT,
    732732                         BuiltInClass.CLASS_T);
     
    735735    TYPE_ERROR.setDirectSlotDefinitions(
    736736      list(new SlotDefinition(Symbol.DATUM,
    737                                list(PACKAGE_CL.intern("TYPE-ERROR-DATUM"))),
     737                               list(Symbol.TYPE_ERROR_DATUM)),
    738738            new SlotDefinition(Symbol.EXPECTED_TYPE,
    739                                list(PACKAGE_CL.intern("TYPE-ERROR-EXPECTED-TYPE")))));
     739                               list(Symbol.TYPE_ERROR_EXPECTED_TYPE))));
    740740    UNBOUND_SLOT.setCPL(UNBOUND_SLOT, CELL_ERROR, ERROR, SERIOUS_CONDITION,
    741741                        CONDITION, STANDARD_OBJECT, BuiltInClass.CLASS_T);
    742742    UNBOUND_SLOT.setDirectSlotDefinitions(
    743743      list(new SlotDefinition(Symbol.INSTANCE,
    744                                list(PACKAGE_CL.intern("UNBOUND-SLOT-INSTANCE")))));
     744                               list(Symbol.UNBOUND_SLOT_INSTANCE))));
    745745    UNBOUND_VARIABLE.setCPL(UNBOUND_VARIABLE, CELL_ERROR, ERROR,
    746746                            SERIOUS_CONDITION, CONDITION, STANDARD_OBJECT,
     
    847847                              list(internKeyword("DOCUMENTATION")))));
    848848    // There are no inherited slots.
    849     // STANDARD_GENERIC_FUNCTION.setSlotDefinitions(STANDARD_GENERIC_FUNCTION.getDirectSlotDefinitions());
    850849    STANDARD_GENERIC_FUNCTION.finalizeClass();
    851850  }
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r14478 r14480  
    29882988  public static final Symbol CLASS_DIRECT_SUPERCLASSES =
    29892989    PACKAGE_MOP.addExternalSymbol("CLASS-DIRECT-SUPERCLASSES");
     2990  public static final Symbol CLASS_DOCUMENTATION =
     2991    PACKAGE_MOP.addExternalSymbol("CLASS-DOCUMENTATION");
    29902992  public static final Symbol CLASS_FINALIZED_P =
    29912993    PACKAGE_MOP.addExternalSymbol("CLASS-FINALIZED-P");
Note: See TracChangeset for help on using the changeset viewer.