Change to detect version number of SBCL 1.0

diff --git a/tools/config.lisp b/tools/config.lisp
index bfc660dbc5ccc6eec19a40c13d044c4b4fa77429..94166109d15c4284a077e2d389b9112c308a7c6b 100644 (file)
--- 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)
       (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 
   (defun sbcl>= (req-major req-minor req-micro)
     (multiple-value-bind (major minor micro) (sbcl-version)      
       (or