From ff8e92873ce7d2c6668144089ba4b9371871b11c Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 19 Dec 2013 21:27:27 -0500
Subject: [PATCH] Fix asdf-pathname-test.script for non-XCL. Oops.

---
 test/asdf-pathname-test.script | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index 0da4ca3b..8beecb31 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -238,7 +238,7 @@
   (let ((systems
           `(,(subpathname root "asdf-src/system1/")
             #+asdf-test-logical-pathname
-            ,@'(,(make-pathname :host "ASDFTEST" :directory '(:absolute "system1"))
+            ,@`(,(make-pathname :host "ASDFTEST" :directory '(:absolute "system1"))
                 ,(parse-namestring "ASDFTEST:system1;"))
             ,@(when support-string-pathnames
                 `(,(format nil "~{/~a~}/asdf-src/system1" (rest (pathname-directory root)))))))
@@ -249,7 +249,7 @@
             ,(make-pathname :directory '(:relative "module2" "module3") :name nil :type nil)
             ,(subpathname root "asdf-src/system2/module4/")
             #+asdf-test-logical-pathname
-            ,@'(,(make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4")
+            ,@`(,(make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4")
                                 :name nil :type nil)
                 ,(parse-namestring "ASDFTEST:system2;module4;"))
             ,@(when support-string-pathnames
@@ -280,7 +280,7 @@
             ,(subpathname root "asdf-src/system1/module2/module3/file.lisp")
             ,(subpathname root "asdf-src/system2/module4/file.lisp")
             #+asdf-test-logical-pathname
-            ,@'(,(make-pathname :host "ASDFTEST" :device nil
+            ,@`(,(make-pathname :host "ASDFTEST" :device nil
                                 :directory '(:absolute "system2" "module4")
                                 :name "file" :type "lisp" :version nil)
                 ,(parse-namestring "ASDFTEST:system2;module4;file.lisp"))
-- 
GitLab