anchor.diff:  					 (list :cld cld))))
   	       ;else
   	       `(make-instance 'cld-library-version-dependency
  -			       :library-name ,dependency)))))
  +			       :library-name ,(if (symbolp dependency)
  +						  (string-downcase (symbol-name dependency))
  +						  dependency))))))
   
   (defclass repository-address ()
     ()
  
positive.code: 
  (defmacro with-cld-repositories (repositories &body body)
    `(call-with-cld-repositories
      ',repositories
      (lambda ()
        ,@body)))
  
  
negative.code: 		 :test #'equalp)
  	   (error "Cyclic dependency on ~A" dependency)
  					;else
  	   (let ((library (find-cld-library (library-name dependency) nil)))
  	     (if library
  		 (let ((library-version
  			(if (library-version dependency)
  			    (find-cld-library-version
  			     library
  			     (library-version dependency))
  			    ; else, use the latest version
  			    (first (library-versions library)))))
  		       (cons library-version
  			     (calculate-library-versions library-version (cons dependency visited))))
  					;else
  		 (format t "WARNING: no ASDF system is being loaded by CLDM for ~A~%"
  			 dependency))))))
  
  (defun validate-library-versions-list (versions-list)
    (loop for i from 0 to (1- (length versions-list))
  