* lisp/core.lisp.in ($ECLVersionNumber): New.

	* boot/ast.boot (genECLnativeTranslation): Use it.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 53643489..9d65d262 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -82,6 +82,7 @@
 	   "$NativeTypeTable"
 	   "$LispOptimizeOptions"
 	   "$StandardLinking"
+	   "$ECLVersionNumber"
 
 	   "getOptionValue"
            "getCommandLineArguments"
@@ -225,6 +226,16 @@
 	     (setf custom:*foreign-encoding* 
 		   (ext:make-encoding :charset charset:iso-8859-1))))
 
+
+;; ECL is a moving target, especially, in its FII support.  Track
+;; versions as poor man safeguard to portability chaos.
+(defconstant |$ECLVersionNumber|
+  #-:ecl -1
+  #+:ecl (cond ((find-symbol "+ECL-VERSION-NUMBER+" "EXT")
+		ext:+ecl-version-number+)
+	       (t -1)))
+  
+
 ;; 
 ;; -*- OpenAxiom filesystem -*-
 ;;