anchor.diff:  (defmethod update-xmpp-presence ((im-client im-client) updated-presence)
     (with-slots (im presence) im-client
       (setf presence updated-presence)
  -    (send-presence-request im presence)))+    (send-presence-request im presence)))
  
positive.code:   0)
  
  
   (defun start-climc-app ()
     "Lunch the IM client."
     (let ((dir (get-climc-directory)))
       (load (concatenate 'string dir "climcrc"))
       (format t "Account : ~A~%Emails : ~A~%" *climc-account* *climc-account-emails*)
       (unless (and *climc-account* *climc-account-emails*)
         (error "Climc : configuration file problem."))
       (launch-climc *climc-account* *climc-account-emails*)))
  
  
  (defun start-climc (&optional new-process-p)
  
negative.code: (defun stop-climc ()
    (when (and *im-client-process*
               (sb-thread:thread-alive-p *im-client-process*))
      (sb-thread:terminate-thread *im-client-process*)))
  
  
  
  