anchor.diff:  (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"))))
  +log the channels we're instructed to log,
  +and answer to search queries in those logs."
  +  (let ((*package* (load-time-value
  +                    (find-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIL"))))
       (configure)
  +    (botil-initialize)
       (with-simple-restart (quit "Quit")
         (catch :gazongues
           (with-retry (sleep (+ 10 (random 30)))
  
positive.code: ;;;;    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"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
    (:import-from "COM.INFORMATIMAGO.COMMON-LISP.INTERACTIVE.INTERACTIVE"
                  "DATE" "UPTIME")
    (:export "MAIN")
  
negative.code:                    (progn
                       (setf *connection* (connect :nickname *nickname* :server *server*))
                       (add-hook *connection* 'irc::irc-privmsg-message 'msg-hook)
                       (send *botil* 'reconnect)
                       (loop :while (read-message *connection*)
                             #|there's a 10 s timeout in here.|#))
                  (when *connection*
                    (quit *connection*)
                    (setf *connection* nil))))))))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;;;; THE END ;;;;
  