anchor.diff:            (file-directory (let ((dir (directory-namestring (cld-pathname cld-address))))
                               (when (plusp (length dir))
                                 dir))))
  -      (let ((command (format nil "cd /tmp; git archive --remote=~A ~@[HEAD:~A ~] ~A | tar -x"
  -                             (cld-url cld-address)
  +      (let ((command (format nil "cd /tmp; git archive --remote=~A ~A:~A ~A | tar -x"
  +                             (cl-ppcre:regex-replace-all "~" (git-url cld-address) "~~")
  +			     (or (git-branch cld-address) "HEAD")
                                file-directory
                                file-namestring)))
           (verbose-msg command)
  -        (trivial-shell:shell-command command)
  -        (pathname (format nil "/tmp/~A" file-namestring)))))
  +	(multiple-value-bind (result error status)
  +	    (trivial-shell:shell-command command)
  +	  (declare (ignore result error))
  +	  (when (zerop status)
  +	    (pathname (format nil "/tmp/~A" file-namestring)))))))
     (:method ((cld-address http-cld-address))
       (cl-ppcre:register-groups-bind (url-path filename)
           ("^(http://.*)/(.*)$" (cld-url cld-address))
  
positive.code: 			   (:lenient (warn "Couldn't find a cld for ~A" dependency))
  			   (:strict (error "Couldn't find a cld for ~A" dependency)))))
                                          ;else
                     (load-dependency-cld dependency cld)))))
      (loop for dependency in (dependencies library-version)
         do (progn
              (verbose-msg "Handling ~A.~%" dependency)
  
negative.code:                                  ,@(when version
                                           (list :version version))
                                   ,@(when cld
                                           (list :cld `(parse-cld-address ',cld)))))
                                          ;else
                 `(make-instance 'cld-library-version-dependency
                                 :library-name ,(if (symbolp dependency)
  