Changeset 11994


Ignore:
Timestamp:
06/06/09 14:03:16 (12 years ago)
Author:
vvoutilainen
Message:

Move macroexpand-all and compiler-let to EXT and LISP packages,
respectively.

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

Legend:

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

    r11968 r11994  
    7777  public static final Package PACKAGE_JAVA =
    7878    Packages.createPackage("JAVA");
     79  public static final Package PACKAGE_LISP =
     80    Packages.createPackage("LISP");
    7981
    8082  // ### nil
     
    111113        PACKAGE_JAVA.usePackage(PACKAGE_CL);
    112114        PACKAGE_JAVA.usePackage(PACKAGE_EXT);
     115        PACKAGE_LISP.usePackage(PACKAGE_CL);
     116        PACKAGE_LISP.usePackage(PACKAGE_EXT);
     117        PACKAGE_LISP.usePackage(PACKAGE_SYS);
    113118      }
    114119    catch (Throwable t)
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r11966 r11994  
    28582858  public static final Symbol GETENV =
    28592859    PACKAGE_EXT.addExternalSymbol("GETENV");
     2860  public static final Symbol MACROEXPAND_ALL =
     2861    PACKAGE_EXT.addExternalSymbol("MACROEXPAND-ALL");
    28602862
    28612863  // MOP.
     
    29872989    PACKAGE_EXT.addExternalSymbol("*INSPECTOR-HOOK*");
    29882990
     2991  public static final Symbol COMPILER_LET=
     2992    PACKAGE_LISP.addExternalSymbol("COMPILER-LET");
    29892993}
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r11993 r11994  
    307307(export 'describe-compiler-policy)
    308308(autoload 'describe-compiler-policy)
     309(export 'macroexpand-all)
     310(autoload 'macroexpand-all)
    309311
    310312;; JVM compiler.
     
    312314(export '(jvm-compile-package))
    313315(autoload '%with-compilation-unit "jvm")
     316
     317(in-package "LISP")
     318(export 'compiler-let)
     319(autoload 'compiler-let)
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r11920 r11994  
    10011001(export '(precompile-form))
    10021002
    1003 (in-package #:system)
    1004 
     1003(in-package #:ext)
    10051004(defun macroexpand-all (form &optional env)
    10061005  (precompiler:precompile-form form nil env))
     1006
     1007(in-package #:lisp)
    10071008
    10081009(defmacro compiler-let (bindings &body forms &environment env)
     
    10141015                       (eval (cadr binding))) bindings)
    10151016      (macroexpand-all `(progn ,@forms) env))))
     1017
     1018(in-package #:system)
    10161019
    10171020(defun set-function-definition (name new old)
Note: See TracChangeset for help on using the changeset viewer.