anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
   ;;;;**************************************************************************
   (defpackage "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIL"
  -  (:use "COMMON-LISP" "CL-IRC" "CL-JSON" "DRAKMA"  "SPLIT-SEQUENCE"
  +  (:use "COMMON-LISP"
  +        "CL-IRC" "CL-JSON" "DRAKMA"  "SPLIT-SEQUENCE" "BORDEAUX-THREADS"
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
  -        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
  +        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
  +        "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
  +        "COM.INFORMATIMAGO.CLEXT.QUEUE")
     (:import-from "COM.INFORMATIMAGO.COMMON-LISP.INTERACTIVE.INTERACTIVE"
                   "DATE" "UPTIME")
     (:export "MAIN")
  
positive.code: (defun main ()
    "The main program of the botil IRC bot.
  We connect and reconnect to the *SERVER* under the *NICKNAME*,
  and join to the *CHANNEL* where HackerNews are published."
    (let ((*package* (load-time-value (find-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIL"))))
      (configure)
      (with-simple-restart (quit "Quit")
        (catch :gazongues
          (with-retry (sleep (+ 10 (random 30)))
  
negative.code: 
  (defun msg-hook (message)
    "Answers to PRIVMSG sent directly to this bot."
    (send *dispatch* message)
    t)
  
  
  