anchor.diff:         ',name)))
   
   (defun run-test-set (tests)
  -  "Run the test functions in the given iterable collection."
  +  "Run the test functions in the given sequence."
     (let ((*suite* (make-instance 'suite :plan nil)))
  -    (do-iterator (test (iterator tests))
  +    (do-sequence (test tests)
         (funcall (symbol-test test)))
       (finalize)))
   
  
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: 
  (defpackage :shcl/test/foundation
    (:use :common-lisp :prove :lisp-namespace)
    (: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
  