diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-02-28 01:36:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-02-28 01:36:05 +0000 |
| commit | a56176b5de188bf5ffe7d7735ec47bdf7f6c0a82 (patch) | |
| tree | 6ba3865133672efd165bcccfd0866293dce09eea /src/lisp/core.lisp.in | |
| parent | 78fa2724e63b1a8784aa058e12b45922091bdd70 (diff) | |
| download | open-axiom-a56176b5de188bf5ffe7d7735ec47bdf7f6c0a82.tar.gz | |
Diffstat (limited to 'src/lisp/core.lisp.in')
| -rw-r--r-- | src/lisp/core.lisp.in | 7 |
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 -*- |