Changeset 15497


Ignore:
Timestamp:
12/21/20 21:28:31 (2 years ago)
Author:
Mark Evenson
Message:

Enusure that *FEATURES* contains an integer :JAVA-<n> value

With Project Loom, *FEATURES* contains :JAVA-16 :|JVM-16-loom|.

File:
1 edited

Legend:

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

    r15496 r15497  
    24302430          }
    24312431      }
     2432      // We wish to declare an integer Java version, but
     2433      // specialized builds can prefix further information in the
     2434      // java.version property
     2435      try {
     2436  Integer.parseInt(javaVersion);
     2437      } catch (NumberFormatException e) {
     2438  for (int i = 0; i < javaVersion.length(); i++) {
     2439    char c = javaVersion.charAt(i); // Unicode?
     2440    if (!Character.isDigit(c)) {
     2441      // Push the non-conforming keyword for completeness
     2442      featureList.push(internKeyword("JAVA-" + javaVersion));
     2443      platformVersion = javaVersion.substring(0, i);
     2444      break;
     2445    }
     2446  }
     2447      }
    24322448      featureList = featureList.push(internKeyword("JAVA-" + platformVersion));
    24332449    }
Note: See TracChangeset for help on using the changeset viewer.