anchor.diff:    (flag :long-name "version"
           :description "Print the CLDM version")
     (switch :short-name "v" :long-name "verbose"
  -          :description "Run in verbose mode")
  +          :description "Run in verbose mode"
  +	  :env-var "VERBOSE")
     (switch :short-name "d" :long-name "debug"
             :description "Turn debugging on or off."
             :argument-style :on/off
  
positive.code:          (unless (clon:remainder)
             (format t "Missing command.~%")
             (clon:exit 1))
           (clon:make-context
            :synopsis (let ((command-name (car (clon:remainder))))
                        (let ((command (find-command command-name)))
                          (if command
                              command
                              (progn
                                (format t "Unknown command.~%")
                                (clon:exit 1)))))
            :cmdline (clon:remainder))
           (cond ((clon:getopt :short-name "h")
                  (clon:help))
                 (t ;; Process the command
                  (process-command (intern (string-upcase (clon:progname)) :keyword))))))
    (clon:exit))
  
  (defun create-cld-template (project-name &rest keys &key cld description author dependencies interactive)
  
negative.code:       (call-next-method)
      (error (e)
        (format t "An error ocurred: ~A~%" e)
        (when *debug-mode*
  	(trivial-backtrace:print-backtrace e))
        (clon:exit 1))))
  
  (defmethod process-command ((command (eql :init)))
  