anchor.diff:        (handler-case
             (send-irc-message msg)
           (condition (e)
  -          (format
  -           t
  -           "WARNING, can not send message! Reason: ~S" e)
  -          (push-msg-pool msg)
  -          (irc-reconnect
  -           0
  -           (lambda ()
  -             (clear-msg-pool-f 1))))))))
  +          (progn
  +            (format *stdout*
  +                    "WARNING, can not send message! Reason: ~S" e)
  +            (push-msg-pool msg)))))))
   
   (defun tg-getupdate-loop ()
     "Need a `overheat' protection"
  
positive.code: 
  (defparameter *irc-channel* "#midymidybot")
  (defparameter *irc-connection* nil)
  
  (defparameter *pong* 0)
  (setf *pong* 0)
  
  (defun make-str ()
    (make-array '(0) :element-type 'character
  
negative.code:   (tryto (quit *irc-connection* "leaving")))
  
  (defun irc-check-connection ()
    (tryto (ping *irc-connection* *irc-channel*))
    (if (sb-thread:wait-on-semaphore
         *ping-semaphore* :timeout 20)
        (progn (setf *ping-semaphore* (sb-thread:make-semaphore))
               t)
        (progn (setf *ping-semaphore* (sb-thread:make-semaphore))
               nil)))
  
  ;;;; -----------------------------------------
  
  