[armedbear-cvs] r14104 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 17 01:48:50 2012
New Revision: 14104

Log:
Move exports from the JAVA package to java.lisp.

Modified:
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/java.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Thu Aug 16 23:30:13 2012	(r14103)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Fri Aug 17 01:48:50 2012	(r14104)
@@ -55,45 +55,6 @@
 (export '(%defgeneric
           canonicalize-direct-superclasses))
 
-
-;; Java interface.
-(in-package "JAVA")
-(export 'jregister-handler "JAVA")
-(export 'jinterface-implementation "JAVA")
-(export 'jmake-invocation-handler "JAVA")
-(export 'jmake-proxy "JAVA")
-(export 'jproperty-value "JAVA")
-(export 'jobject-class "JAVA")
-(export 'jclass-superclass "JAVA")
-(export 'jclass-interfaces "JAVA")
-(export 'jclass-interface-p "JAVA")
-(export 'jclass-superclass-p "JAVA")
-(export 'jclass-array-p "JAVA")
-(export 'jarray-component-type "JAVA")
-(export 'jarray-length "JAVA")
-(export 'jnew-array-from-array "JAVA")
-(export 'jnew-array-from-list "JAVA")
-(export 'jarray-from-list "JAVA")
-(export 'jclass-constructors "JAVA")
-(export 'jconstructor-params "JAVA")
-(export 'jclass-field "JAVA")
-(export 'jclass-fields "JAVA")
-(export 'jfield-type "JAVA")
-(export 'jfield-name "JAVA")
-(export 'jclass-methods "JAVA")
-(export 'jmethod-params "JAVA")
-(export 'jmethod-name "JAVA")
-(export 'jinstance-of-p "JAVA")
-(export 'jmember-static-p "JAVA")
-(export 'jmember-public-p "JAVA")
-(export 'jmember-protected-p "JAVA")
-(export 'jnew-runtime-class "JAVA")
-(export 'define-java-class "JAVA")
-(export 'ensure-java-class "JAVA")
-(export 'chain "JAVA")
-(export 'jmethod-let "JAVA")
-(export 'jequal "JAVA")
-
 ;; Profiler.
 (in-package "PROFILER")
 (export '(*granularity* show-call-counts show-hot-counts with-profiling))

Modified: trunk/abcl/src/org/armedbear/lisp/java.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/java.lisp	Thu Aug 16 23:30:13 2012	(r14103)
+++ trunk/abcl/src/org/armedbear/lisp/java.lisp	Fri Aug 17 01:48:50 2012	(r14104)
@@ -36,6 +36,22 @@
 
 (defvar *classloader* (get-default-classloader))
 
+
+
+(EXPORT '(JREGISTER-HANDLER JINTERFACE-IMPLEMENTATION JMAKE-INVOCATION-HANDLER
+          JMAKE-PROXY JPROPERTY-VALUE JOBJECT-CLASS JCLASS-SUPERCLASS
+          JCLASS-INTERFACES JCLASS-INTERFACE-P JCLASS-SUPERCLASS-P
+          JCLASS-ARRAY-P JARRAY-COMPONENT-TYPE JARRAY-LENGTH
+          JNEW-ARRAY-FROM-ARRAY JNEW-ARRAY-FROM-LIST JARRAY-FROM-LIST
+          JCLASS-CONSTRUCTORS JCONSTRUCTOR-PARAMS JCLASS-FIELD JCLASS-FIELDS
+          JFIELD-TYPE JFIELD-NAME JCLASS-METHODS JMETHOD-PARAMS JMETHOD-NAME
+          JINSTANCE-OF-P JMEMBER-STATIC-P JMEMBER-PUBLIC-P JMEMBER-PROTECTED-P
+          JNEW-RUNTIME-CLASS DEFINE-JAVA-CLASS ENSURE-JAVA-CLASS CHAIN
+          JMETHOD-LET JEQUAL))
+
+
+
+
 (defun add-url-to-classpath (url &optional (classloader *classloader*))
   (jcall "addUrl" classloader url))