anchor.diff:             (flag :short-name "h" :long-name "help"
                    :description "Print this help and exit.")))))
   
  -(defparameter +repositories-commands+
  +(defparameter +repo-commands+
     (list
      (cons "add"
            (clon:defsynopsis (:make-default nil :postfix "NAME TYPE ARGS")
  
positive.code:         (clon:exit 1))
        (cldm::config-remove-repository repository-name scope))))
  
  (defmethod process-repositories-command ((command (eql :append)) scope)
    (destructuring-bind (repository-name repository-type &rest args) (clon:remainder)
      (setf repository-type (intern (string-upcase (cadr (clon:remainder))) :cldm))
      (setf args (loop for prop in args by #'cddr
  
negative.code:     (cond ((clon:getopt :short-name "h")
             (clon:help))
            (t ;; Process the config command
             (process-repo-command
              (intern (string-upcase (clon:progname)) :keyword)
              scope)))))
  
  (defmethod process-repo-command ((command (eql :add)) scope)
    (destructuring-bind (repository-name repository-type &rest args) (clon:remainder)
      (setf repository-type (intern (string-upcase (cadr (clon:remainder))) :cldm))
      (setf args (loop for prop in args by #'cddr
  