anchor.diff:               do
                  (install-library-version version libraries-directory)))))))
   
  +(defun find-cld-for-library (library-name &key (error-p t))
  +  (aif (find-library library-name nil)
  +       it
  +       ;; else
  +       (let (cld)
  +	 (loop
  +	    for cld-repository in (list-cld-repositories)
  +	    while (not cld)
  +	    do
  +	      (let ((repository-cld (find-cld cld-repository
  +                                                       library-name)))
  +                         (setf cld (and repository-cld
  +                                        (load-cld repository-cld)))
  +                         (when cld
  +                           (verbose-msg "~A cld found in ~A~%"
  +                                        library-name
  +                                        cld-repository))))
  +	 (when (and (not cld) error-p)
  +	   (error "Couldn't find a cld for ~S library~%" library-name))
  +	 cld)))
   
   (defun install-library (library-name
                           &key
  
positive.code:     (when clear-registered-libraries
        (clear-registered-libraries))
      (with-download-session ()
        (let ((cld (and cld (load-cld (parse-cld-address cld))))
              (version (when version
                         (read-version-from-string version))))
          (if cld
              (install-library-dependencies library-name
                                            :version version
                                            :libraries-directory libraries-directory
                                            :interactive interactive)
              ;; else
              (if (find-library library-name nil)
                  (install-library-dependencies library-name :version version
                                                :libraries-directory libraries-directory
                                                :interactive interactive)
                  ;; else
                  (progn
                    (loop
                       for cld-repository in (list-cld-repositories)
                       while (not cld)
                       do
                         (let ((repository-cld (find-cld cld-repository
                                                         library-name)))
                           (setf cld (and repository-cld
                                          (load-cld repository-cld)))
                           (when cld
                             (verbose-msg "~A cld found in ~A~%"
                                          library-name
                                          cld-repository))))
                    (if cld
                        (progn
                          (install-library-dependencies library-name
                                                        :version version
                                                        :libraries-directory libraries-directory
                                                        :interactive interactive)
                          t)
                        (error "Couldn't find a cld for ~S library~%" library-name)))))))))
  
  (defmethod load-project ((directory pathname)
                           &key
                             version
  
negative.code:                    :clear-registered-libraries clear-registered-libraries
                     :interactive interactive)
    (when clean-asdf-environment
      (clean-asdf-environment))
    (asdf:load-system (library-name (library project))
                      :force-not (asdf:registered-systems)))
  
  