anchor.diff:                    (asdf:already-loaded-systems))))
   
   (defun set-new-translation (host logical-directory
  -                            &optional (translated-directory (substitute #\/ #\; logical-directory)))
  +                            root-directory
  +                            &optional (translated-directory (string-downcase (substitute #\/ #\; logical-directory))))
     "Add default translations for LOGICAL-DIRECTORY (e.g. \"foo;bar;\") in HOST.
   Default translations:
   - FASL files are expanded as usual with `asdf:apply-output-translations' (should default to the ASDF cache).
  
positive.code:       (let ((final-path (let ((host (parse-logical-pathname path)))
                            (if host
                                (progn
                                  (set-new-translation host (subseq (namestring path) (1+ (length host))))
                                  ;; The #p reader macro expands to logical pathnames only if
                                  ;; the host is already defined, which may not be the case at
                                  ;; this point, so we remake the pathname.
  
negative.code: 
  This effectively makes the logical pathname behave as if it had been a physical
  pathname."
    (let* ((logical-directory (if (uiop:string-suffix-p logical-directory ";")
                                  logical-directory
                                  (uiop:strcat logical-directory ";")))
           (logical-path (uiop:strcat host ":" logical-directory "**;*.*.*"))
           (logical-fasl-path (uiop:strcat host ":" logical-directory "**;*.fasl.*"))
           (path-translation (uiop:ensure-pathname
                              (uiop:subpathname* root-directory
                                                 translated-directory)
                              :ensure-directory t
                              :wilden t))
           (fasl-translation (uiop:ensure-pathname
                              (asdf:apply-output-translations root-directory)
                              :wilden t)))
      (if (ignore-errors (logical-pathname-translations host))
          (flet ((set-alist (key value)
  