diff --git a/test/test-concatenate-source.script b/test/test-concatenate-source.script index 90f3ee8897acfa16d35cf44792a7c6351f297c90..95e9396d06dc8a7853666f49944971f9b153132a 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")))