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: looking for asdf-systems in the depenency graph")
  (defvar *written-nodes* nil "A map of nodes that have already been written to 
  the asd file.")
  
  
  (defgeneric find-asdf-systems (node)
  
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))))))
  
  