diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index 0da4ca3b00f16f152ddf49099b417447ef2c7269..8beecb3143f927fdbad5a0799a55da30702a9c8b 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"))