From f3e230a7d779439e10fea9f7f8a8be00bd085bdd Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 11 Dec 2006 22:25:36 +0000 Subject: [PATCH] Change to detect version number of SBCL 1.0 Organization: Straylight/Edgeware From: espen --- tools/config.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/config.lisp b/tools/config.lisp index bfc660d..9416610 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -122,7 +122,9 @@ (defun sbcl-version () (values (parse-integer (lisp-implementation-version) :end dot1) (parse-integer (lisp-implementation-version) :start (1+ dot1) :end dot2) - (parse-integer (lisp-implementation-version) :start (1+ dot2) :junk-allowed t)))) + (if dot2 + (parse-integer (lisp-implementation-version) :start (1+ dot2) :junk-allowed t) + 0)))) (defun sbcl>= (req-major req-minor req-micro) (multiple-value-bind (major minor micro) (sbcl-version) (or -- [mdw]