anchor.diff:              #:split-string
               #:component-name-to-pathname-components
               #:split-name-type
  +            #:subdirectories
               #:truenamize
               #:while-collecting)))
           (setf *asdf-version* asdf-version
  
positive.code:              (unspecific-handler (p)
                 (if (typep p 'logical-pathname) #'ununspecific #'identity)))
        (multiple-value-bind (host device directory unspecific-handler)
            (#-gcl ecase #+gcl case (first directory)
              ((nil)
               (values (pathname-host defaults)
                       (pathname-device defaults)
  
negative.code: 
  ;; Using ack 1.2 exclusions
  (defvar *default-source-registry-exclusions*
    '(".bzr" ".cdv"
      ;; "~.dep" "~.dot" "~.nib" "~.plst" ; we don't support ack wildcards
      ".git" ".hg" ".pc" ".svn" "CVS" "RCS" "SCCS" "_darcs"
      "_sgbak" "autom4te.cache" "cover_db" "_build"
      "debian")) ;; debian often build stuff under the debian directory... BAD.
  