anchor.diff:  
   (defun initialize-cldm ()
     "Load cldm config"
  +  (verbose-msg "Initializing cldm~%")
     (setf cldm::*global-config-file* #p"/etc/cldm/config")
     (setf cldm::*user-config-file* #p"~/.cldm/config")
     (setf cldm:: *local-config-file* (merge-pathnames (pathname ".cldm")
  
positive.code: 
  (defparameter *debug-mode* nil)
  (defparameter *verbose-mode* nil)
  
  (defparameter +CLDM-version+ "0.0.1")
  
  
negative.code: 	   (cond ((clon:getopt :short-name "h")
  		  (clon:help))
  		 (t ;; Process the command
  		  (verbose-msg "Running ~A command~%" (clon:progname))
  		  (process-command (intern (string-upcase (clon:progname)) :keyword)))))))
    (clon:exit))
  
  