From 81a91e965249993d0b91ffafa311af98e5f3bb67 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 26 Dec 2012 15:40:24 -0500 Subject: [PATCH] Make test-bundle slightly more resilient to not being loaded first. (preparing for a future better test system.) --- test/test-bundle.script | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/test-bundle.script b/test/test-bundle.script index 51dca0994..9c858ed02 100644 --- a/test/test-bundle.script +++ b/test/test-bundle.script @@ -9,6 +9,9 @@ (quit-on-error (asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration)) + (asdf:clear-system :test-bundle-1) + (asdf:clear-system :test-bundle-2) + (when (find-package :test-package) (delete-package :test-package)) (asdf:defsystem :test-bundle-1 :components ((:file "file1") (:file "file3"))) (asdf:defsystem :test-bundle-2 :depends-on (:test-bundle-1) :components ((:file "file2"))) (let* ((op (make-instance 'asdf::fasl-op)) -- GitLab