(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)