Changeset 12224


Ignore:
Timestamp:
10/25/09 22:29:07 (12 years ago)
Author:
ehuelsmann
Message:

Make it possible to require a double-colon package separator

by setting *DOUBLE-COLON-PACKAGE-SEPARATORS* to non-NIL.

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

Legend:

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

    r12222 r12224  
    24512451  }
    24522452
     2453  // ### *double-colon-package-separators*
     2454  // internal symbol
     2455  public static final Symbol DOUBLE_COLON_PACKAGE_SEPARATORS =
     2456    internSpecial("*DOUBLE-COLON-PACKAGE-SEPARATORS*", PACKAGE_SYS, NIL);
     2457
    24532458  // ### *load-depth*
    24542459  // internal symbol
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r12181 r12224  
    581581      }
    582582    FastStringBuffer sb = new FastStringBuffer(packageName);
    583     if (((Package)pkg).findExternalSymbol(name) != null)
     583    if (((Package)pkg).findExternalSymbol(name) != null
     584        && DOUBLE_COLON_PACKAGE_SEPARATORS.symbolValue(thread) == NIL)
    584585      sb.append(':');
    585586    else
Note: See TracChangeset for help on using the changeset viewer.