anchor.diff:             (format t "Missing command.~%")
              (clon:exit 1))
   	 ;; Process switches
  +	 ;; Careful: there's a bug in CLON. When clon:getopt on the same
  +	 ;; option twice, gives wrong value the second time.
   	 (let ((*verbose-mode* (clon:getopt :long-name "verbose"))
  -	       (cldm::*verbose-mode* (clon:getopt :long-name "verbose"))
  +	       ;; Bug: why does this not work here?
  +	       ;(cldm::*verbose-mode* *verbose-mode*)
   	       (*debug-mode* (clon:getopt :long-name "debug")))
  +	   (when *debug-mode*
  +	     (format t "Debug mode on~%"))
  +	   (when *verbose-mode*
  +	     (format t "Verbose mode on~%")
  +	     ;; Bug: binding above doesn't work
  +	     (setf cldm::*verbose-mode* *verbose-mode*))
   	   (clon:make-context
   	    :synopsis (let ((command-name (car (clon:remainder))))
   			(let ((command (find-command command-name)))
  
positive.code:                                  :lenient)
                              :strict))
            (verbose-mode (or (clon:getopt :long-name "verbose")
                              nil)))
        (format t "Updating ~A dependencies~%"
  	      (cldm::project-name project))
        (cldm:update-project project
  
negative.code:                                  :lenient)
                              :strict))
            (verbose-mode (or (clon:getopt :long-name "verbose")
                              *verbose-mode*)))
        (format t "Installing ~A dependencies to ~A~%"
                (cldm::project-name project)
                (cldm::libraries-directory project))
  