anchor.diff:        (pathname &key
                     on-error
                     defaults type dot-dot namestring
  +                  empty-is-nil
                     want-pathname
                     want-logical want-physical ensure-physical
                     want-relative want-absolute ensure-absolute ensure-subpath
  
positive.code:        (default-toplevel-directory
          (subpathname (user-homedir-pathname) ".fasls/")) ;; Use ".cache/common-lisp/" instead ???
         (include-per-user-information nil)
         (map-all-source-files (or #+(or clisp ecl mkcl) t nil))
         (source-to-target-mappings nil)
         (file-types `(,(compile-file-type)
                       "build-report"
                       #+ecl (compile-file-type :type :object)
                       #+mkcl (compile-file-type :fasl-p nil)
                       #+clisp "lib" #+sbcl "cfasl"
                       #+sbcl "sbcl-warnings" #+clozure "ccl-warnings")))
      #+(or clisp ecl mkcl)
      (when (null map-all-source-files)
        (error "asdf:enable-asdf-binary-locations-compatibility doesn't support :map-all-source-files nil on CLISP, ECL and MKCL"))
      (let* ((patterns (if map-all-source-files (list *wild-file*)
  
negative.code:           (with-enough-pathname (input-file :defaults *base-build-directory*)
              (with-saved-deferred-warnings (warnings-file :source-namestring (namestring input-file))
                (with-muffled-compiler-conditions ()
                  (or #-(or clasp ecl mkcl)
                      (apply 'compile-file input-file :output-file tmp-file
                             #+sbcl (if emit-cfasl (list* :emit-cfasl tmp-cfasl keywords) keywords)
                             #-sbcl keywords)
                      #+ecl (apply 'compile-file input-file :output-file
                                  (if object-file
                                      (list* object-file :system-p t keywords)
                                      (list* tmp-file keywords)))
                      #+clasp (apply 'compile-file input-file :output-file
                                    (if object-file
                                        (list* object-file :output-type :object #|:system-p t|# keywords)
                                        (list* tmp-file keywords)))
                      #+mkcl (apply 'compile-file input-file
                                    :output-file object-file :fasl-p nil keywords)))))
          (cond
  