anchor.diff:                                           (car result-lst)))))
                        (process-tg-msg (car result-lst)))
                      result))
  -         (condition (e) (format t "Error: ~S!\n" e))))))
  +         (condition (e) (format *stdout*
  +                                "TG-LOOP in trouble: ~S!\n" e))))))
   
   ;;;;------------------------------------------------
   
  
positive.code:            (let* ((response (decoded-tg-request
                               "getUpdates"
                               `(("offset" . ,offset)
                                 ("timeout" . 60))))
                    (result (jget :result response)))
               (mapl (lambda (result-lst)
                       (if (null (cdr result-lst))
  
negative.code:   (setf *irc-read-loop*
          (sb-thread:make-thread
           (lambda ()
             (read-message-loop *irc-connection*))
           :name "IRC-READ-LOOP"))
    ;;(start-background-message-handler *irc-connection*)
    (if callback
        (funcall callback)))
  