anchor.diff:  
   (defpackage :shcl/test/foundation
     (:use :common-lisp :prove :lisp-namespace)
  -  (:import-from :shcl/core/iterator #:do-iterator #:iterator)
  +  (:import-from :shcl/core/sequence #:do-sequence #:eager-flatmap-sequence)
     (:import-from :shcl/core/utility #:optimization-settings)
     (:import-from :fset)
     (:export #:define-test #:run-test-set #:all-tests #:package-test-set
  
positive.code:       (fset:do-set (package packages-without-linked-systems)
          (vector-push-extend package sorted-packages))
  
        (shcl/core/iterator:concatenate-iterable-collection
         (shcl/core/iterator:mapped-iterator
          (iterator sorted-packages)
          (lambda (package)
            (iterator (fset:lookup *package-tests* package))))))))
  
negative.code:        ',name)))
  
  (defun run-test-set (tests)
    "Run the test functions in the given sequence."
    (let ((*suite* (make-instance 'suite :plan nil)))
      (do-sequence (test tests)
        (funcall (symbol-test test)))
      (finalize)))
  
  