diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
| -rw-r--r-- | src/lisp/core.lisp.in | 11 |
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 -*- ;; |