Fix test script.

   :ignore-inherited-configuration

   ))

(asdf:initialize-source-registry

 `(:source-registry

   (:directory ,(make-pathname :directory (pathname-directory *load-truename*)

                               :name nil :type nil))

   (:tree ,(merge-pathnames (make-pathname

                                  :directory '(:relative "ext"))

                            (make-pathname :directory (pathname-directory *load-truename*))))

   :inherit-configuration))

(handler-bind ((error #'(lambda (c)

                          (format t "~&Received error attempting to load ITERATE ASDF system definition:~%~a~%" c)

                          (uiop:die 4))))

(format t "~&Successfully loaded the iterate ASD file.~%")

(asdf:load-system :iterate/tests)

(asdf:test-system :iterate)

(uiop:quit 0)

(defvar *build-error* nil)

(defvar *build-warning* nil)