anchor.diff:                  (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))))
  +                   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
                         (setup library-name version)
  
positive.code:                     (error "Couldn't find a cld for ~S library~%" library-name))))))))
  
  (defmethod load-project ((directory pathname)
  			 &key
  			   version
  			   libraries-directory
  			   (verbose *verbose-mode*)
  			   (solving-mode *solving-mode*)
  			   (clean-asdf-environment *clean-asdf-environment*))
    (load-project (load-project-from-directory directory)
  		:version version
  		:libraries-directory libraries-directory
  		:verbose verbose
  		:solving-mode solving-mode
  		:clean-asdf-environment clean-asdf-environment))
  
  (defmethod load-project ((project project)
  			 &key
  			   version
  			   libraries-directory
  			   (verbose *verbose-mode*)
  			   (solving-mode *solving-mode*)
  			   (clean-asdf-environment *clean-asdf-environment*))
    "Install a project dependencies and load the project in the current lisp image"
  
    (install-project project
  
negative.code:                     :force-not (asdf:registered-systems)))
  
  (defmethod install-project ((project project)
                              &key
                                version
                                libraries-directory
                                (verbose *verbose-mode*)
                                (solving-mode *solving-mode*))
    "Installs a CLDM project dependencies"
  
    (let ((*verbose-mode* verbose)
          (*solving-mode* solving-mode)
          (version (or version
                       (project-version project)))
          (libraries-directory (or libraries-directory
                                   (libraries-directory project)
                                   *local-libraries-directory*)))
      (verbose-msg "Loading ~A.~%" project)
      (let ((library-version (if version
                                 (find-library-version (library project) version)
  