aboutsummaryrefslogtreecommitdiff
path: root/src/lisp/core.lisp.in
diff options
context:
space:
mode:
Diffstat (limited to 'src/lisp/core.lisp.in')
-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 -*-