anchor.diff:      (cldm::config-add-repository `(,repository-type :name ,repository-name ,@args)
                                    scope)))
   
  -(defmethod process-repositories-command ((command (eql :remove)) scope)
  +(defmethod process-repo-command ((command (eql :remove)) scope)
     (let ((repository-name (car (clon:remainder))))
       (let ((repository
              (cldm::find-cld-repository repository-name)))
  
positive.code:     (cldm::config-append-repository `(,repository-type :name ,repository-name ,@args)
                                      scope)))
  
  (defmethod process-repositories-command ((command (eql :unappend)) scope)
    (let ((repository-name (car (clon:remainder))))
      (let ((repository
             (cldm::find-cld-repository repository-name)))
  
negative.code:            (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")))))
  
  (defparameter +repo-commands+
    (list
     (cons "add"
           (clon:defsynopsis (:make-default nil :postfix "NAME TYPE ARGS")
  