anchor.diff:  
   (defparameter *debug-mode* nil)
   (defparameter *verbose-mode* nil)
  +
  +(defun verbose-msg (msg &rest args)
  +  (when *verbose-mode*
  +    (apply #'format t msg args)))
   
   (defparameter +CLDM-version+ "0.0.1")
   
  
positive.code: 	   (cond ((clon:getopt :short-name "h")
  		  (clon:help))
  		 (t ;; Process the command
  		  (process-command (intern (string-upcase (clon:progname)) :keyword)))))))
    (clon:exit))
  
  
negative.code: 
  (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")
  