anchor.diff:       (assert (equalp (version v1) (version v2)) nil "This should not have happened")
        v1)))  
   
  -(defun clean-library-versions-list (versions-list)
  -  (mapcar #'pick-library-version
  -	  (group-by versions-list
  -		    :key (compose #'library-name #'library)
  -		    :test #'equalp)))		    
  +(defun pick-library-versions (versions-list)
  +  (flet ((pick-latest-version (library-version)
  +	   ;; If the library version is not specified, pick the latest version available
  +	   (if (not (version library-version))
  +	       (let ((latest-library-version
  +		      (first (library-versions (library library-version)))))
  +		 (verbose-msg "No specific library version specified for ~A. Picking latest library version: ~A~%"
  +			      library-version
  +			      latest-library-version)
  +		 latest-library-version)	       
  +	       library-version)))
  +    (mapcar (compose #'pick-latest-version #'pick-library-version)
  +	    (group-by versions-list
  +		      :key (compose #'library-name #'library)
  +		      :test #'equalp))))
   
   (defun cache-library-version (library-version)
     (ensure-directories-exist *repositories-directory*)
  
positive.code:                                (verbose-msg "~A cld found in ~A~%"
                                              (library-name dependency)
                                              cld-repository))))
                       (when cld
                         (load-dependency-cld dependency cld)))
                                          ;else
                     (load-dependency-cld dependency cld)))))
      (loop for dependency in (dependencies library-version)
         do (progn
              (verbose-msg "Handling ~A.~%" dependency)
              (if (find-cld-library (library-name dependency) nil)
                  (progn
                    (verbose-msg "Metadata for ~A is already loaded~%" (library-name dependency))
  
negative.code:         ;; Validate the library versions list
          (validate-library-versions-list library-versions)
  
          ;; Pick library versions
          (setf library-versions
                (pick-library-versions library-versions))
  
  	(verbose-msg "Libraries to load: ~A~%" library-versions)
  
  