anchor.diff:  
   (export 'files-in-system)
   (defun files-in-system (system)
  -  (remove-duplicates 
  -   (loop for (op . component) in (traverse (make-instance 'operation)
  +  (mapcar #'component-pathname (components-in-system system)))
  +
  +(defun components-in-system (system)
  + (remove-duplicates 
  +   (loop for (nil . component) in (traverse (make-instance 'operation)
                                              (find-system system))
            when (and (typep component 'component)
                      (stringp (pathname-name (component-pathname component))))
  -         collect (component-pathname component)) :test #'equalp))
  +         collect component)
  +   :key #'component-pathname
  +   :test #'pathname-match-p))
   
   (defun sysdef-central-registry-subsearch (name)
     "Looks in each *central-registry* folder for NAME.asd or system.asd in 
  
positive.code:     (make-safe-dir-name
       (feature-select '(:allegro :clisp :lispworks :sbcl :cmucl)
                       (lisp-implementation-type))
       #+:allegro EXCL::*COMMON-LISP-VERSION-NUMBER* 
       #+(and :clisp :win32) (posix:version-major (posix:version))
       #+:lispworks system::*major-version-number*
       #-(or :allegro :lispworks :clisp) (lisp-implementation-version)
       (feature-select '(:mswindows :win32 :windows :mac :macos 
                         :macosx :linux :bsd :sgi :irix :unix)
  
negative.code: ;;; This is asdf+ some useful extensions to ASDF (Another System Definition Facility).  
  ;;; $Revision: 1.5 $
  
  ;;; You may load this file instead of ASDF.lisp, provided that either ASDF.lisp has
  ;;; already been loaded or is present in the same folder as this file.
  