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:   (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: 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.")
  (defvar *output-path* nil "The path that the asd file is being written
  to. All filepaths that show up in the asd file will be relative to this path.")
  
  
  (defgeneric find-asdf-systems (node)
  