anchor.diff:  (defun find-config-command (name)
     (cdr (assoc name +config-commands+ :test #'string=)))
   
  +(defgeneric process-config-command (command scope))
  +
   (defmethod process-command ((command (eql :config)))
     (let ((scope (or (clon:getopt :long-name "scope")
                      :local)))
  
positive.code:                   (create-cld-file))
                (create-cld-file)))))))
  
  (defmethod process-command ((command (eql :install)))
    (if (clon:remainder)
        (install-library-command)
        (install-project-command)))
  
  (defun install-project-command ()
    (let ((project (cldm::load-project-from-directory (osicat:current-directory))))
      (when (not project)
  
negative.code: 			  :verbose verbose-mode)
      (format t "Done.~%")
      (clon:exit 0)))
  
  (defmethod process-command ((command (eql :install)))
    (if (clon:remainder)
        (install-library-command)
        (install-project-command)))
  
  (defun update-project-command ()
    (let ((project (cldm::load-project-from-directory (osicat:current-directory))))
  