anchor.diff:  	  (cld-repository (cldm:find-cld-repository repository-name)))
         (cldm:publish-cld cld-repository cld-pathname))))
   
  +(defmethod process-repo-command ((command (eql :update)) scope)
  +  (let ((repository-name (car (clon:remainder))))
  +    (let ((repository
  +           (cldm::find-cld-repository repository-name)))
  +      (cldm::update-cld-repository repository))))      
  +  
  +(defmethod process-repo-command ((command (eql :search)) scope)
  +  (destructuring-bind (repo-name library)
  +      (clon:remainder)
  +    (let* ((repo
  +	    (cldm::find-cld-repository repo-name))
  +	   (search-result 
  +	    (cldm::search-cld-repository repo (format nil "name:\"~A\"" library)))) 
  +      (loop for doc in (montezuma::score-docs search-result)
  +	 do (let ((docid (montezuma:doc doc))
  +		  (score (montezuma:score doc)))
  +	      (format t "~A ~A~%" 
  +		      (montezuma:document-value 
  +		       (montezuma:get-document (cldm::search-index repo)
  +					       docid)
  +		       "name")
  +		      score))))))
  +
   (defmethod process-repo-command ((command (eql :clear)) scope)
     (let ((repo-name (first (clon:remainder))))
       (cldm::clear-cache (cldm:find-cld-repository repo-name))))
  
positive.code:                    :default-value ""
                     :argument-type :optional
                     :description "The project author")))
     ;; install command
     (cons "install"
           (clon:defsynopsis (:make-default nil :postfix "[LIBRARY] [VERSION]")
  
negative.code:    (cons "publish"
  	 (clon:defsynopsis (:make-default nil :postfix "CLD REPO")
  	   (text :contents "Publish a cld file to a repository")
  	   (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")))
     (cons "update"
  	 (clon:defsynopsis (:make-default nil :postfix "REPO")
  	   (text :contents "Update a repository")
  	   (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")))
     (cons "search"
  	 (clon:defsynopsis (:make-default nil :postfix "REPO LIBRARY")
  	   (text :contents "Search for a library in repository")
  	   (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")))
     (cons "clear"
  