Changeset 4431


Ignore:
Timestamp:
10/17/03 14:29:45 (18 years ago)
Author:
piso
Message:

Not all autoloads should be exported!

File:
1 edited

Legend:

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

    r4413 r4431  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.93 2003-10-16 15:00:17 piso Exp $
     5 * $Id: Autoload.java,v 1.94 2003-10-17 14:29:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4949    public static void autoload(Package pkg, String symbolName, String className)
    5050    {
     51        autoload(pkg, symbolName, className, false);
     52    }
     53
     54    public static void autoload(Package pkg, String symbolName, String className, boolean exported)
     55    {
    5156        Symbol symbol = intern(symbolName.toUpperCase(), pkg);
    52         if (pkg != PACKAGE_CL) {
     57        if (pkg != PACKAGE_CL && exported) {
    5358            try {
    5459                pkg.export(symbol);
     
    129134
    130135    private static final Primitive AUTOLOAD =
    131         new Primitive("autoload", PACKAGE_SYS, true)
     136        new Primitive("autoload", PACKAGE_SYS, false)
    132137    {
    133138        public LispObject execute(LispObject first) throws ConditionThrowable
     
    253258        autoload("unuse-package", "PackageFunctions");
    254259        autoload("user-homedir-pathname", "Pathname");
    255         autoload(PACKAGE_EXT, "add-class", "LispClass");
    256         autoload(PACKAGE_EXT, "assq", "assq");
    257         autoload(PACKAGE_EXT, "classp", "LispClass");
    258         autoload(PACKAGE_EXT, "file-directory-p", "probe_file");
    259         autoload(PACKAGE_EXT, "gc", "gc");
    260         autoload(PACKAGE_EXT, "probe-directory", "probe_file");
     260        autoload(PACKAGE_EXT, "add-class", "LispClass", true);
     261        autoload(PACKAGE_EXT, "assq", "assq", true);
     262        autoload(PACKAGE_EXT, "classp", "LispClass", true);
     263        autoload(PACKAGE_EXT, "file-directory-p", "probe_file", true);
     264        autoload(PACKAGE_EXT, "gc", "gc", true);
     265        autoload(PACKAGE_EXT, "probe-directory", "probe_file", true);
    261266        autoload(PACKAGE_SYS, "%define-condition", "define_condition");
    262267        autoload(PACKAGE_SYS, "%defpackage", "PackageFunctions");
Note: See TracChangeset for help on using the changeset viewer.