anchor.diff:          (clon:exit 1))
         (cldm::config-unappend-repository repository-name scope))))
   
  -(defmethod process-repositories-command ((command (eql :list)) scope)
  +(defmethod process-repo-command ((command (eql :list)) scope)
     (loop for repository in (cldm:list-cld-repositories)
        do (format t "~A~%" repository)))
   
  
positive.code:                  :enum (list :global :user :local)
                   :default-value :local)))
     ;; repositories command
     (cons "repositories"
           (clon:defsynopsis (:make-default nil
                                            :postfix (format nil "REPOSITORIES-CMD [OPTIONS]"))
             (text :contents (format nil "Manage CLDM CLD repositories.~%
  Repositories commands: ~{~A~^, ~}~%" (mapcar #'car +repositories-commands+)))
             (flag :short-name "h" :long-name "help"
                   :description "Print this help and exit.")
             (enum :long-name "scope"
  
negative.code:         (clon:exit 1))
        (cldm::config-remove-repository repository-name scope))))
  
  (defmethod process-repo-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
  