anchor.diff:    nil)
   
   
  -(defun write-asdf-system-header (filestream asdf-systems &optional (build-module *build-module*))
  +(defun write-asdf-system-header (filestream asdf-systems 
  +                                 &optional (build-module *build-module*))
     "Writes the information from the build module to the asdf file"
     (let* ((system-name (namestring
                          (make-pathname :name nil
  
positive.code:            (*visited-nodes* (make-hash-table :test #'equal))
             (asdf-systems (append
                            (find-asdf-systems build-requires-graph)
                            (find-asdf-systems dependency-graph))))
        (write-asdf-system-header out asdf-systems)
        (format out
                "~2,0T:components~%~2,0T((:module \"build-requires-files\"~%~
  
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))))))
  
  