Commit 81a91e96 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Make test-bundle slightly more resilient to not being loaded first.

(preparing for a future better test system.)
parent 8355a6be
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment