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:   "The current IRC server connection.")
  (defvar *botpass*  "1234")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun compute-deadline (timeout)
    (+ (get-internal-real-time)
  
negative.code: 
  (defparameter *version* "1.0.0")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Configuration:
  ;;;
  
  