anchor.diff:                       :do (handler-case
                                (flet ((terminate-worker () (loop-finish)))
                                  (block ,name
  -                                 (destructuring-bind ,message-lambda-list ,vmessage
  +                                 (destructuring-bind ,message-lambda-list ,vmessage
                                      (declare (ignorable ,@pl))
                                      ,@body)))
                              (error (err)
  
positive.code:                  :name ,sname)))))
  
  (defvar *botil*)
  (defvar *dispatch*)
  (defvar *command-processor*)
  (defvar *query-processor*)
  (defvar *sender*)
  
negative.code:         *nickname* (or (uiop:getenv "BOTIL_NICKNAME")  *nickname*)
          *botpass*  (or (uiop:getenv "BOTIL_BOTPASS")   *botpass*)))
  
  ;; source = "nickname" or "#channel"
  ;; user = "~t" "identified-user@host" etc
  ;; host = fqdn of user's host
  ;; command = "PRIVMSG"
  ;; arguments = ("command" "arguments"); for /msg botil hello world --> ("botil" "hello world")
  
  ;; #test-botil <test-botil> /msg botil hello how do you do?
  ;; (:sender "test-botil" :recipient "botil"       :arguments ("botil" "hello how do you do?"))
  ;; #test-botil <test-botil> How do you do? 
  ;; (:sender "test-botil" :recipient "#test-botil" :arguments ("#test-botil" "How do you do?"))
  
  
  (defun msg-hook (message)
    "Answers to PRIVMSG."
    (with-accessors ((sender source)
                     (arguments arguments)) message
      (let ((recipient (first arguments)))
        (format t "~&msg-hook message = ~S~%" (list :sender sender
                                                    :recipient recipient
                                                    :arguments arguments))
        (say arguments)
        (if (string= *nickname* recipient)
            (send *command-processor* sender (second arguments))
            (send *logger* message))))
    t)
  
  
  (defun svc-hook (message)
    "Answers to service messages."
    (with-accessors ((sender source)
                     (arguments arguments)) message
      (let ((recipient (first arguments)))
        (format t "~&svc-hook message = ~S~%" (list :sender sender
                                                    :recipient recipient
                                                    :command (command message)
                                                    :arguments arguments))))
    (send *logger* message)
    t)
  
  ;; (join *connection* "#test-botil")
  
  
  (defun call-with-retry (delay thunk)
  