Commit ab1d960a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

tools: yet another tweak about debian package versions.

parent ddbbf177
......@@ -176,7 +176,7 @@
(defun publish-debian-package (&optional release)
"publish a debian package"
(let ((changes (strcat "cl-asdf_" (debian-version-from-file release)
(let ((changes (strcat "cl-asdf_" (debian-version-without-epoch (debian-version-from-file release))
"_" (debian-architecture) ".changes")))
(run* `(dput mentors ,(pn "../" changes)))))
......@@ -28,6 +28,14 @@
;; (C) rel = nil is for debian-native packages, e.g. base-passwd or cowbuilder
(values ver epoch rel)))
(defun debian-version-string (ver epoch rel)
(format nil "~@[~D:~]~A~@[-~A~]" epoch ver rel))
(defun debian-version-without-epoch (version-string)
(multiple-value-bind (ver epoch rel) (parse-debian-version version-string)
(declare (ignore epoch))
(debian-version-string ver nil rel)))
(defparameter *version* (version-from-file))
;;; Bumping the version of ASDF
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