From 0d20c71946868424e2c44cb32c54e6bc4e84db4d Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sun, 6 Jan 2013 20:23:52 -0500
Subject: [PATCH] Fix test for CLISP.

---
 test/test-concatenate-source.script | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/test-concatenate-source.script b/test/test-concatenate-source.script
index 90f3ee88..95e9396d 100644
--- a/test/test-concatenate-source.script
+++ b/test/test-concatenate-source.script
@@ -15,10 +15,10 @@
         (mlccso (asdf::make-operation 'asdf::monolithic-load-compiled-concatenated-source-op))
         (sys (find-system :test-concatenate-source)))
     (assert (asdf::operation-monolithic-p mcso))
-    (assert-equal
-     (input-files mcso sys)
-     (loop :for n :in '(3 1 2)
-           :collect (asdf::subpathname *test-directory* (format nil "file~D.lisp" n))))
+    (assert-equal ;; on CLISP, we get un-equal pathnames with same namestrings. Sigh.
+     (princ-to-string (input-files mcso sys))
+     (princ-to-string (loop :for n :in '(3 1 2)
+                            :collect (asdf::subpathname *test-directory* (format nil "file~D.lisp" n)))))
     (assert-equal
      (output-file mcso sys)
      (apply-output-translations (asdf::subpathname *test-directory* "test-concatenate-source.lisp")))
-- 
GitLab