anchor.diff:                                   :author final-author
                                    :dependencies final-dependencies))))
   
  -(defun create-cld-template-batch (project-name &key cld description author dependencies &allow-other-keys)
  -  `(cldm:deflibrary ,project-name
  -     :cld ,cld
  -     :description ,description
  -     :author ,author
  -     :dependencies ,dependencies))
  -
  -(defgeneric process-command (command))
  +(defun create-cld-template (project-name &rest keys &key cld description author dependencies interactive)
  +  (declare (ignorable cld description author dependencies))
  +  (if interactive
  +      (apply #'create-cld-template-interactive project-name keys)
  +      (apply #'create-cld-template-batch project-name keys)))
   
   (defmethod process-command :around (command)
     (handler-case
  
positive.code: (defun find-config-command (name)
    (cdr (assoc name +config-commands+ :test #'string=)))
  
  (defmethod process-command ((command (eql :config)))
    (let ((scope (or (clon:getopt :long-name "scope")
                     :local)))
  
negative.code: 			  :verbose verbose-mode)
      (format t "Done.~%")
      (clon:exit 0)))
  
  (defmethod process-command ((command (eql :install)))
    (if (clon:remainder)
        (install-library-command)
        (install-project-command)))
  
  (defun update-project-command ()
    (let ((project (cldm::load-project-from-directory (osicat:current-directory))))
  