Patch needed for Gentoo

diff --git a/tools/config.lisp b/tools/config.lisp
index c38b0347c07f1d717b85533c53f6e8c20f22788e..d7f161e546ed9d826f38c891a25137a2d216c81d 100644 (file)
--- a/tools/config.lisp
+++ b/tools/config.lisp
@@ -147,7 +147,11 @@   (defun sbcl-version ()
     (values-list
      (loop
       repeat 4
     (values-list
      (loop
       repeat 4

-      for part in (split-string (lisp-implementation-version) :delimiter #\.)
+      ;; We use . and - as delimiters because some Linux
+      ;; distributions tend to patch SBCL and add a distro-specific
+      ;; version tag (like 1.0.19-gentoo).
+      for part in (split-string (lisp-implementation-version) :delimiter '(#\.\
+ #\-))

       while (every #'digit-char-p part)
       collect (parse-integer part))))
   (defun sbcl>= (major minor micro &optional patch)
       while (every #'digit-char-p part)
       collect (parse-integer part))))
   (defun sbcl>= (major minor micro &optional patch)