anchor.diff:          t))))
   
   #+(or abcl clisp clozure cmu ecl sbcl)
  -(let ((x (and #+clisp (find-symbol "*MODULE-PROVIDER-FUNCTIONS*" :custom))))
  +(let ((x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom))))
     (when x
       (eval `(pushnew 'module-provide-asdf
               #+abcl sys::*module-provider-functions*
  
positive.code: 
              ;; Utilities
              #:absolute-pathname-p
  	    ;; #:aif #:it
              ;; #:appendf
              #:coerce-name
              #:directory-pathname-p
  
negative.code:    (string (probe-file* (parse-namestring p)))
     (pathname (unless (wild-pathname-p p)
                 #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p)
                 #+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p)))
                 '(ignore-errors (truename p)))))))
  
  (defun* truenamize (p)
    "Resolve as much of a pathname as possible"
  