anchor.diff:                      (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*))
  +                         &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))
  +                :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*))
  +                         &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
  
positive.code:                do
                   (multiple-value-bind (executed pathname repository)
                       (cache-library-version version libraries-directory)
  		   (assert executed)
  		   (push (list version pathname repository) installed-libraries)))
              (create-lock-file installed-libraries)))))
      (verbose-msg "Done.~%")
      t))
  
  (defmethod update-project ((project project)
  			   &key
  			     version
  			     libraries-directory
  			     (verbose *verbose-mode*)
  			     (solving-mode *solving-mode*))
    "Updates a CLDM project dependencies"
  
    (let ((*verbose-mode* verbose)
          (*solving-mode* solving-mode)
  	(version (or version
  		     (project-version project))))
      (verbose-msg "Loading ~A.~%" project)
      (let ((library-version (if version
                                 (find-library-version (library project) version)
  
negative.code:                 (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
                        (setup library-name version)
  