anchor.diff:  (in-package #:quicklisp-client)
   
   (defparameter *local-projects-directory*
  -  (qmerge "local-projects/"))
  +  (qmerge "local-projects/")
  +  "The default local projects directory.")
   
   (defun system-index-file (pathname)
  +  "Return the system index file for the directory PATHNAME."
     (merge-pathnames "system-index.txt" pathname))
   
   (defun local-project-system-files (pathname)
  +  "Return a list of system files under PATHNAME."
     (let ((wild (merge-pathnames "**/*.asd" pathname)))
       (sort (directory wild)
             #'<
  
positive.code:                  (length (namestring file))))))
  
  (defun make-system-index (pathname)
    (with-open-file (stream (system-index-file pathname)
                            :direction :output
                            :if-exists :rename-and-delete)
  
negative.code:           return (truename namestring))))
  
  (defun local-projects-searcher (system-name)
    "This function is added to ASDF:*SYSTEM-DEFINITION-SEARCH-FUNCTIONS*
  to use the local project directory and cache to find systems."
    (when (probe-directory *local-projects-directory*)
      (let ((system-index (ensure-system-index *local-projects-directory*)))
        (when system-index
  