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

rschlatte at common-lisp.net rschlatte at common-lisp.net
Tue Aug 7 16:50:16 UTC 2012


Author: rschlatte
Date: Tue Aug  7 09:50:15 2012
New Revision: 14064

Log:
Cosmetic changes

- rename local variables
- directly set initial value of *features*

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

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	Tue Aug  7 03:36:33 2012	(r14063)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Tue Aug  7 09:50:15 2012	(r14064)
@@ -2324,8 +2324,8 @@
   static
   {
     final String osName = System.getProperty("os.name");
-    final String version = System.getProperty("java.version");
-    final String os_arch = System.getProperty("os.arch");
+    final String javaVersion = System.getProperty("java.version");
+    final String osArch = System.getProperty("os.arch");
 
     // Common features
     LispObject featureList = list(Keyword.ARMEDBEAR, Keyword.ABCL,
@@ -2361,22 +2361,21 @@
     else if (osName.startsWith("Windows"))
       featureList = new Cons(Keyword.WINDOWS, featureList);
     // Java version
-    if (version.startsWith("1.5")) {
+    if (javaVersion.startsWith("1.5")) {
         featureList = new Cons(Keyword.JAVA_1_5, featureList);
-    } else if (version.startsWith("1.6")) {
+    } else if (javaVersion.startsWith("1.6")) {
         featureList = new Cons(Keyword.JAVA_1_6, featureList);
-    } else if (version.startsWith("1.7")) {
+    } else if (javaVersion.startsWith("1.7")) {
         featureList = new Cons(Keyword.JAVA_1_7, featureList);
     }
     // Processor architecture
-    if(os_arch != null) {
-      if (os_arch.equals("amd64"))
+    if(osArch != null) {
+      if (osArch.equals("amd64"))
         featureList = new Cons(Keyword.X86_64, featureList);
-      else if (os_arch.equals("x86"))
+      else if (osArch.equals("x86"))
         featureList = new Cons(Keyword.X86, featureList);
     }
-    Symbol.FEATURES.initializeSpecial(NIL);
-    Symbol.FEATURES.setSymbolValue(featureList);
+    Symbol.FEATURES.initializeSpecial(featureList);
   }
 
   static




More information about the armedbear-cvs mailing list