anchor.diff:    (format *stdout* "ADD HOOKS~%")
     (add-hook *irc-connection*
               'irc::irc-privmsg-message
  -            (lambda (msg)
  -              (funcall *tg-message-sender*
  -                       (msgstr-irc->tg msg))))
  +            #'irc-message-hook)
     (add-hook *irc-connection*
               'irc::irc-pong-message
               (lambda (msg)
  
positive.code: (defvar *stdout* *standard-output*)
  (defvar *ping-semaphore* (sb-thread:make-semaphore))
  (defparameter *irc-read-loop* nil)
  
  (defun exit ()
    (sb-ext:exit))
  
negative.code:       (setf (cdr *irc-message-pool-tail*) new)
        (setf *irc-message-pool-tail* new))))
  
  (defun irc-message-hook (msg)
    (if (string= *irc-channel*
                 (msg-channel msg))
        (funcall *tg-message-sender*
                 (msgstr-irc->tg msg))
        nil))
  
  ;; supress warning
  (defun bot-halt ())
  