anchor.diff:      (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 (make-instance 'git-cld-address
  -                           :git-url (second cld-address)
  -                           :pathname (pathname (third 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)
  
positive.code:                            library
                             (library-version dependency)))))
                   (load-library-version library-version :reload reload))))
             (load-dependency (dependency)
               (let ((cld (cld dependency)))
                 (if (not cld)
                     (progn
                       (verbose-msg "No cld specified.~%")
                       (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
                                 (verbose-msg "~A cld found in ~A~%"
                                              (library-name dependency)
                                              cld-repository))))
                       (if cld
  			 ;; A cld for the dependency was found, load it
  			 (load-dependency-cld dependency cld)
  			 ;; else, no dependency was found. What to do in this case??
  			 ;; we can signal an error, or ignore this (signal a warning), as
  			 ;; the library version may be loadable from the user system repository
  
negative.code:                     :maintainer ,maintainer
                      :description ,description
                      :license ,license
                      :cld (parse-cld-address ',cld)
                      :versions ,(parse-cld-library-versions versions)
                      :tags ',tags)))
  
  