From 78fa2724e63b1a8784aa058e12b45922091bdd70 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 28 Feb 2009 01:11:56 +0000
Subject: 	* lisp/core.lisp.in ($ECLVersionNumber): New. 	*
 boot/ast.boot (genECLnativeTranslation): Use it.

---
 src/lisp/core.lisp.in | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/lisp/core.lisp.in')

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 -*-
 ;; 
-- 
cgit v1.2.3