anchor.diff:        (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)))
  
positive.code: (in-package :cl-user)
  
  (require :cldm)
  
  (require :com.dvlsoft.clon)
  
  (setq *load-verbose* nil)
  
  (eval-when (:execute :load-toplevel :compile-toplevel)
    (com.dvlsoft.clon:nickname-package))
  
  (defparameter +CLDM-version+ "0.0.1")
  
  
negative.code:          (unless (clon:remainder)
             (format t "Missing command.~%")
             (clon:exit 1))
  	 ;; Process switches
  	 (let ((*verbose-mode* (clon:getopt :long-name "verbose"))
  	       (*debug-mode* (clon:getopt :long-name "debug")))
  	   (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)
  