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