diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-21 09:53:33 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-21 09:53:33 -0700 |
| commit | e6edfd28a88d36cde37c92c7d10649506bcaabd6 (patch) | |
| tree | 6e52b39e74a1055c8b4a5fb2c23be2638bd62683 /src/util.lisp | |
| parent | 40a298370f70d19e0918e6f42b22b49a6433856e (diff) | |
| download | consfigurator-e6edfd28a88d36cde37c92c7d10649506bcaabd6.tar.gz | |
DPKG-VERSION-COMPARE should accept numbers and strings
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index a2d4cde..4e93ea0 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -48,7 +48,14 @@ (dpkg-version-compare x ">=" y)) (defun dpkg-version-compare (x r y) - (= 0 (nth-value 2 (run-program (list "dpkg" "--compare-versions" x r y) + (= 0 (nth-value 2 (run-program `("dpkg" "--compare-versions" + ,(etypecase x + (string x) + (number (format nil "~A" x))) + ,r + ,(etypecase y + (string y) + (number (format nil "~A" y)))) :ignore-error-status t)))) |