anchor.diff:  	    (loop 
   	       for cld-repository in *cld-repositories*
   	       while (not cld)
  -	       do (progn
  +	       do (let ((cld-repository (eval cld-repository)))
   		    (setf cld (find-cld cld-repository
   					library-name))
   		    (when cld
  
positive.code: (defparameter *repositories-directory*
    (asdf:system-relative-pathname :cldm "cache/repositories/"))
  
  (defparameter *cld-repositories* nil)
  
  (defun call-with-repositories-directory (pathname function)
    (let ((*repositories-directory* pathname))
  
negative.code: 		     (loop 
  			for cld-repository in *cld-repositories*
  			while (not cld)
  			do (let ((cld-repository (eval cld-repository)))
  			     (setf cld (find-cld cld-repository
  						 (library-name dependency)))
  			     (when cld
  