From f02926df9a577b14657dd0052d9df3e7dc856fb1 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 26 Feb 2014 09:05:01 -0600
Subject: [PATCH] Extend DEF-TEST-SYSTEM to permit systems named with strings.

---
 test/script-support.lisp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 45b94a3ae..0ab83108e 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -592,8 +592,15 @@ is bound, write a message and exit on an error.  If
 (setf *package* (find-package :asdf-test))
 
 (defmacro def-test-system (name &rest rest)
-  `(apply (asym :register-system-definition) ',name :pathname ,*test-directory*
-          :source-file nil ',rest))
+  (etypecase name
+    (symbol
+     `(apply (asym :register-system-definition) ',name
+             :pathname ,*test-directory*
+             :source-file nil ',rest))
+    (string
+     `(apply (asym :register-system-definition) ,name
+             :pathname ,*test-directory*
+             :source-file nil ',rest))))
 
 (defun in-plan-p (plan x) (member x (acall :plan-actions plan) :key (asym :action-path) :test 'equal))
 
-- 
GitLab