anchor.diff:  	  (return-from cache-library-version))
                                           ;else
   	(progn
  -	  (verbose-msg "Repository does not exist for ~A. Caching...~%" library-version)
  +	  (info-msg "Installing ~A...~%"
  +	    (library-version-unique-name library-version))
   	  (let ((done nil))
   	    (loop for repository in (repositories library-version)
   	       while (not done)
  
positive.code:     (values t repository-directory return-repository)))
  
  (defun update-library-version (library-version project)
    (let ((installed-library-info
  	 (find-installed-library-info project
  				      (library-name library-version))))
      (if installed-library-info
  	;; There's a library version installed already
  	;; Try to update the repository
  	(multiple-value-bind (updated repository-directory repository)
  	    (update-repository installed-library-info library-version)
  	  (if (not updated)
  	      ;; The library repository was not updateable
  	      ;; Install the library instead
  	      (cache-library-version library-version (libraries-directory project))
  	      ;; else, return the repository-directory and repository
  	      (values updated repository-directory repository)))
  	;; else, just install the library version
  	(cache-library-version library-version (libraries-directory project)))))
  
  (defun update-repository (installed-library-info library-version)
  
negative.code: 		      downloaded-file))))))))) 
  
  (defun cache-library-version (library-version &optional (libraries-directory *libraries-directory*))
    (ensure-directories-exist libraries-directory)
    (let* ((repository-name (format nil "~A-~A"
  				  (library-name (library library-version))
  