From 97b1710cc8ba09c9d5ccdd595fc0a35edaf48d88 Mon Sep 17 00:00:00 2001 From: espen Date: Mon, 10 Apr 2006 17:42:42 +0000 Subject: [PATCH] Patch from Peter De Wachter to improve the SBCL version detection --- tools/config.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/config.lisp b/tools/config.lisp index 5f74d70..2d3209a 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -118,12 +118,12 @@ #+sbcl (progn (defun sbcl-version () - (let ((dot1 (position #\. (lisp-implementation-version))) - (dot2 (position #\. (lisp-implementation-version) :from-end t))) + (let* ((dot1 (position #\. (lisp-implementation-version))) + (dot2 (position #\. (lisp-implementation-version) :start (1+ dot1)))) (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))))) + (parse-integer (lisp-implementation-version) :start (1+ dot2) :junk-allowed t)))) (defun sbcl>= (req-major req-minor req-micro) (multiple-value-bind (major minor micro) (sbcl-version) (or -- 2.11.0