anchor.diff:  	       config-var
   	       (cldm::get-config-var config-var scope))))
   
  -(defun find-repositories-command (name)
  -  (cdr (assoc name +repositories-commands+ :test #'string=)))
  -
  -(defgeneric process-repositories-command (command scope))
  -
  -(defmethod process-command ((command (eql :repositories)))
  +(defun find-repo-command (name)
  +  (cdr (assoc name +repo-commands+ :test #'string=)))
  +
  +(defgeneric process-repo-command (command scope))
  +
  +(defmethod process-command ((command (eql :repo)))
     (let ((scope (or (clon:getopt :long-name "scope")
                      :local)))
       (clon:make-context
        :synopsis (let ((command-name (car (clon:remainder))))
  -                 (let ((command (find-repositories-command command-name)))
  +                 (let ((command (find-repo-command command-name)))
                      (if command
                          command
                          (progn
  
positive.code:            (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")))))
  
  (defparameter +repositories-commands+
    (list
     (cons "add"
           (clon:defsynopsis (:make-default nil :postfix "NAME TYPE ARGS")
  
negative.code:         (clon:exit 1))
        (cldm::config-unappend-repository repository-name scope))))
  
  (defmethod process-repo-command ((command (eql :list)) scope)
    (loop for repository in (cldm:list-cld-repositories)
       do (format t "~A~%" repository)))
  
  