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

Fix argument passing for asdf-tools extract

parent df845530
No related branches found
No related tags found
No related merge requests found
...@@ -52,14 +52,17 @@ ...@@ -52,14 +52,17 @@
"1.85")) ;; (2004-05-16) the last release by Daniel Barlow (not 1.37, which is the README revision!) "1.85")) ;; (2004-05-16) the last release by Daniel Barlow (not 1.37, which is the README revision!)
(defun get-upgrade-tags (&optional (x *upgrade-test-tags*)) (defun get-upgrade-tags (&optional (x *upgrade-test-tags*))
(cond (etypecase x
((string-equal x :default) (list x)
*default-upgrade-test-tags*) ((or string symbol)
((string-equal x :old) (cond
*obsolete-upgrade-test-tags*) ((string-equal x :default)
((string-equal x :all) *default-upgrade-test-tags*)
(append *default-upgrade-test-tags* *obsolete-upgrade-test-tags*)) ((string-equal x :old)
(t x))) *obsolete-upgrade-test-tags*)
((string-equal x :all)
(append *default-upgrade-test-tags* *obsolete-upgrade-test-tags*))
(t (ensure-list-of-strings (string x)))))))
(defun extract-tagged-asdf (tag) (defun extract-tagged-asdf (tag)
"extract an asdf version from git "extract an asdf version from git
......
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