Changeset 14570 for trunk/abcl/examples/java-to-lisp-1

Timestamp:

07/22/13 13:21:06 (10 years ago)

Author:

Mark Evenson

Message:

Restore Packages.findPackage() API for obtaining the current package in Java.

Restore examples/java-to-lisp-1/MainAlternative.java to this use of
the API.

Fixes #324.

File:

• trunk/abcl/examples/java-to-lisp-1/MainAlternative.java (modified) (2 diffs)

trunk/abcl/examples/java-to-lisp-1/MainAlternative.java

@@ -20 +20 @@
  */
 
-import org.armedbear.lisp.*;
+import org.armedbear.lisp.Function;
+import org.armedbear.lisp.Interpreter;
+import org.armedbear.lisp.Package;
+import org.armedbear.lisp.Packages;
+import org.armedbear.lisp.Symbol;
 
 public class MainAlternative
@@ -37 +41 @@
     // the function is not in a separate package, thus the
     // correct package is CL-USER. Symbol names are
-    // upper case. Package needs the prefix, because java
-    // also has a class named Package.
-    org.armedbear.lisp.Package defaultPackage = 
-        org.armedbear.lisp.Package.findPackage("CL-USER");
-    Symbol sym = 
-        defaultPackage.findAccessibleSymbol("LISPFUNCTION");
+    // (usually) upper case. 
+    Package defaultPackage 
+                  = Packages.findPackage("CL-USER");
+    Symbol sym 
+                  = defaultPackage.findAccessibleSymbol("LISPFUNCTION");
     Function function = (Function) sym.getSymbolFunction();
     function.execute();