Commit 9ecfb2fa authored by Robert Goldman's avatar Robert Goldman
Browse files

Add version= to UIOP.

This is implemented in the most algebraically abstract way (as the conjunction of two calls to `version<=`).
parent 2659305d
......@@ -3,7 +3,7 @@
(:use :uiop/common-lisp :uiop/package :uiop/utility)
(:export
#:*uiop-version*
#:parse-version #:unparse-version #:version< #:version<= ;; version support, moved from uiop/utility
#:parse-version #:unparse-version #:version< #:version<= #:version= ;; version support, moved from uiop/utility
#:next-version
#:deprecated-function-condition #:deprecated-function-name ;; deprecation control
#:deprecated-function-style-warning #:deprecated-function-warning
......@@ -63,6 +63,12 @@ and return it as a string."
"Given two version strings, return T if the second is newer or the same"
(not (version< version2 version1))))
(defun version= (version1 version2)
"Given two version strings, return T if the first is newer or the same and
the second is also newer or the same."
(and (version<= version1 version2)
(version<= version2 version1)))
(with-upgradability ()
(define-condition deprecated-function-condition (condition)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment