anchor.diff:  (defun callback-with-restart (&rest args)
     (restart-case
         (handler-case (apply #'xmpp::default-stanza-callback args)
  -        (t (err) (push (make-user-error err) *errors*)))
  +        (error (err) (push (make-user-error err) *errors*)))
       (skip-stanza () '(ignored))))
   
   (defun read-until (stream condition &key (buff-size 1024) result-only)
  
positive.code:     ((optima.ppcre:ppcre "^say$")
       (reply-chat connection (xmpp:from message)
                   (handler-case (fortune :short t)
                     (t (e) (format nil "~a" e)))
                   (xmpp::type- message)))
      ((optima.ppcre:ppcre "^say (.*)$" text)
       (reply-chat connection (xmpp:from message)
                   text (xmpp::type- message)
  
negative.code:     ((equal "v")
       (reply-chat connection (xmpp:from message)
                   (handler-case (git-version)
                     (error (e) (format nil "~a" e)))
                   (xmpp::type- message)))
      ((equal "errors")
       (reply-chat connection (xmpp:from message)
  