From dad43553b9e265bcd9ff5ca2603f0db4ba8c6b4a Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 3 Dec 2016 19:12:47 -0500
Subject: [PATCH] Fix argument passing for asdf-tools extract

---
 tools/test-upgrade.lisp | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/tools/test-upgrade.lisp b/tools/test-upgrade.lisp
index 8f2b0d11a..d104c120c 100644
--- a/tools/test-upgrade.lisp
+++ b/tools/test-upgrade.lisp
@@ -52,14 +52,17 @@
     "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*))
-  (cond
-    ((string-equal x :default)
-     *default-upgrade-test-tags*)
-    ((string-equal x :old)
-     *obsolete-upgrade-test-tags*)
-    ((string-equal x :all)
-     (append *default-upgrade-test-tags* *obsolete-upgrade-test-tags*))
-    (t x)))
+  (etypecase x
+    (list x)
+    ((or string symbol)
+     (cond
+       ((string-equal x :default)
+        *default-upgrade-test-tags*)
+       ((string-equal x :old)
+        *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)
   "extract an asdf version from git
-- 
GitLab