diff --git a/test/test-concatenate-source.script b/test/test-concatenate-source.script index 703b836b1d2843938d5d122241fa486823fe1da9..03e3ebecb368a1fd3a79f3553a1ddf732094a04e 100644 --- a/test/test-concatenate-source.script +++ b/test/test-concatenate-source.script @@ -26,9 +26,9 @@ (output-files mcso sys) (input-files mccso sys)) ;; on ECL, we get un-equal pathnames. -(assert-pathnames-equal - (output-files mccso sys) - (list (test-fasl "test-concatenate-source--all-systems.lisp"))) +(assert-pathname-equal + (first (output-files mccso sys)) + (test-fasl "test-concatenate-source--all-systems.lisp")) (assert-pathnames-equal (output-files mccso sys) (input-files mlccso sys)) diff --git a/test/test-xach-update-bug.script b/test/test-xach-update-bug.script index 74e79c3802be2318476e8a9abe61179b73b313d4..74fdc5ed2cdb13d1c1f2bcc1bd5b40c5fcc03b2e 100644 --- a/test/test-xach-update-bug.script +++ b/test/test-xach-update-bug.script @@ -1,7 +1,5 @@ ;;; -*- Lisp -*- -(trace load compile-file perform-plan asdf/plan:traverse-action) ;; perform asdf/plan:compute-action-stamp - (setf asdf/cache:*asdf-cache* nil) ;; disable cache between those two very different compilations. (defparameter foo :test-asdf-location-change)