anchor.diff:             (*visited-nodes* (make-hash-table :test #'equal))
              (asdf-systems (append
                             (find-asdf-systems build-requires-graph)
  -                          (find-asdf-systems dependency-graph))))
  +                          (find-asdf-systems dependency-graph)))
  +           (*output-path* output-path))
         (write-asdf-system-header out asdf-systems)
         (format out
                 "~2,0T:components~%~2,0T((:module \"build-requires-files\"~%~
  
positive.code:   (if (description build-module)
      (format filestream "~2,0T:description ~s~%" (description build-module)))
    (if (long-description build-module)
      (format filestream "~2,0T:long-description ~s~%" (long-description build-module)))
    (if asdf-systems
        (format filestream "~2,0T:depends-on (~{:~a~^ ~})~%" asdf-systems)))
  
  
negative.code:               (namestring (make-pathname
                             :type nil
                             :defaults (enough-namestring (source-filepath node)
                                                          *output-path*))) ;NUN?
                (mapcar
                 (lambda (node) (namestring (make-pathname
                                             :type nil
                                             :defaults (enough-namestring
                                                        (source-filepath node)
                                                        *output-path*)))) ;NUN?
                 (remove-if-not (lambda (dep) (typep dep 'object-file-node))
                                dependencies))))))
  
  