anchor.diff:                    (verbose-msg "Metadata for ~A is already loaded~%" (library-name dependency))
                     (when reload
                       (verbose-msg "Reloading...")
  -                    (load-dependency dependency)))
  +                    (load-dependency-cld dependency)))
                   ;; else
  -                (load-dependency dependency))))))
  +                (load-dependency-cld dependency))))))
   
   (defun calculate-library-versions (library-version &optional visited)
     (loop for dependency in (dependencies library-version)
  
positive.code:                                  ,@(when version
                                           (list :version version))
                                   ,@(when cld
                                           (list :cld cld))))
                                          ;else
                 `(make-instance 'cld-library-version-dependency
                                 :library-name ,(if (symbolp dependency)
  
negative.code:     (ecase (first cld-address)
        (:file (make-instance 'pathname-cld-address :pathname (second cld-address)))
        (:url (make-instance 'http-cld-address :url (second cld-address)))
        (:git (destructuring-bind (url pathname &key branch) (rest cld-address)
  	      (make-instance 'git-cld-address
  			     :git-url url
  			     :pathname (pathname pathname)
  			     :branch (or branch "HEAD")))))))
  
  (defgeneric load-cld (cld-address)
    (:method :around (cld-address)
  