Changeset 8664


Ignore:
Timestamp:
02/28/05 17:19:25 (16 years ago)
Author:
piso
Message:

Use Package.internAndExport().

File:
1 edited

Legend:

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

    r8545 r8664  
    22 * Function.java
    33 *
    4  * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Function.java,v 1.42 2005-02-12 03:27:16 piso Exp $
     4 * Copyright (C) 2002-2005 Peter Graves
     5 * $Id: Function.java,v 1.43 2005-02-28 17:19:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public abstract class Function extends Functional
    2525{
    26     private final Symbol symbol;
     26    private Symbol symbol;
    2727
    2828    private int callCount;
     
    7272            setArglist(new SimpleString(arglist));
    7373        if (name != null) {
    74             symbol = pkg.intern(name.toUpperCase());
    75             symbol.setSymbolFunction(this);
    76             if (cold)
    77                 symbol.setBuiltInFunction(true);
    78             setLambdaName(symbol);
    79             if (exported) {
    80                 try {
    81                     pkg.export(symbol);
    82                 }
    83                 catch (ConditionThrowable t) {
    84                     Debug.assertTrue(false);
    85                 }
     74            try {
     75                if (exported)
     76                    symbol = pkg.internAndExport(name.toUpperCase());
     77                else
     78                    symbol = pkg.intern(name.toUpperCase());
     79                symbol.setSymbolFunction(this);
     80                if (cold)
     81                    symbol.setBuiltInFunction(true);
     82                setLambdaName(symbol);
     83                if (docstring != null)
     84                    symbol.setFunctionDocumentation(docstring);
    8685            }
    87             if (docstring != null) {
    88                 try {
    89                     symbol.setFunctionDocumentation(docstring);
    90                 }
    91                 catch (ConditionThrowable t) {
    92                     Debug.assertTrue(false);
    93                 }
     86            catch (ConditionThrowable t) {
     87                Debug.assertTrue(false);
    9488            }
    95         } else
    96             symbol = null;
     89        }
    9790    }
    9891
Note: See TracChangeset for help on using the changeset viewer.