anchor.diff:  (defparameter *verbose-mode* nil)
   
   (defparameter +CLDM-version+ "0.0.1")
  +
  +(defgeneric process-command (command))
   
   (defparameter +config-commands+
     (list
  
positive.code: 			  :verbose verbose-mode)
      (format t "Done.~%")
      (clon:exit 0)))
  
  (defun update-project-command ()
    (let ((project (cldm::load-project-from-directory (osicat:current-directory))))
  
negative.code: 		  (process-command (intern (string-upcase (clon:progname)) :keyword)))))))
    (clon:exit))
  
  (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))
  
  (defun create-cld-template-interactive (project-name &key cld description author dependencies &allow-other-keys)
    (flet ((read-project-name ()
  