anchor.diff:            :argument-style :on/off
             :env-var "DEBUG"))
   
  -(defun main ()
  -  "Entry point for the standalone application."
  -  ;; Load cldm config
  +(defun initialize-cldm ()
  +  "Load cldm config"
     (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")
                                                       (osicat:current-directory)))
     (setf cldm::*local-libraries-directory* (merge-pathnames (pathname "lib/")
                                                              (osicat:current-directory)))
  -  (cldm::load-cldm-config)
  +  (cldm::load-cldm-config))
  +
  +(defun main ()
  +  "Entry point for the standalone application."
  +  
  +  (initialize-cldm)
   
     ;; Prepare to process command line
     (clon:make-context)
  
positive.code:                                :lenient)
                            :strict))
          (verbose-mode (or (clon:getopt :long-name "verbose")
  			  nil))
          (library-name (car (clon:remainder)))
          (library-version-string (cadr (clon:remainder))))
      (cldm:install-library library-name
  
negative.code: (in-package :cl-user)
  
  (setq *load-verbose* nil)
  
  (require :cldm)
  (require :com.dvlsoft.clon)
  