aboutsummaryrefslogtreecommitdiff
path: root/src/lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-02-28 01:36:05 +0000
committerdos-reis <gdr@axiomatics.org>2009-02-28 01:36:05 +0000
commita56176b5de188bf5ffe7d7735ec47bdf7f6c0a82 (patch)
tree6ba3865133672efd165bcccfd0866293dce09eea /src/lisp
parent78fa2724e63b1a8784aa058e12b45922091bdd70 (diff)
downloadopen-axiom-a56176b5de188bf5ffe7d7735ec47bdf7f6c0a82.tar.gz
Diffstat (limited to 'src/lisp')
-rw-r--r--src/lisp/core.lisp.in7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 9d65d262..f4f9fa15 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -231,10 +231,9 @@
;; 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)))
-
+ #+:ecl (let ((ver (find-symbol "+ECL-VERSION-NUMBER+" "EXT")))
+ (cond (ver (symbol-value ver))
+ (t -1))))
;;
;; -*- OpenAxiom filesystem -*-