Skip to content
Snippets Groups Projects
Commit f66917e8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix warnings in tools

Rename asdf-tools:next-version to asdf-tools:compute-next-version
not to clash with the new uiop:next-version.

Stop using the deprecated asdf:traverse.
parent b8623bc6
No related branches found
No related tags found
No related merge requests found
......@@ -7,8 +7,7 @@
(deftestcmd build-asdf-tools ()
"build a binary for asdf-tools"
(when (asdf:traverse :program-op :asdf-tools)
(asdf:operate :program-op :asdf-tools))
(asdf:operate :program-op :asdf-tools)
(success))
;;; Documentation
......
......@@ -136,7 +136,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
(upgrade-methods ((upgrade-methods *upgrade-test-methods*))
(setf upgrade-methods (get-upgrade-methods upgrade-methods)))
(new-version (new-version)
(setf new-version (or new-version (next-version (version-from-file))))))
(setf new-version (or new-version (compute-next-version (version-from-file))))))
:for arg :in args
:for (found larg init) = (assoc arg argmap)
:append (if found larg (list arg)) :into largs
......
......@@ -51,7 +51,7 @@
(defparameter *old-version* :default)
(defparameter *new-version* :default)
(defun next-version (v)
(defun compute-next-version (v)
(let ((pv (parse-version v 'error)))
(assert (first pv))
(assert (second pv))
......@@ -70,7 +70,7 @@
(v1 (check (version-from-file) v1))
((not (eq *new-version* :default)) *new-version*) ;; Ugly passing of argument from Makefile.
(t (let ((old (version-from-file)))
(check old (next-version old)))))))
(check old (compute-next-version old)))))))
(deftype byte-vector () '(array (unsigned-byte 8) (*)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment