anchor.diff:    "The current IRC server connection.")
   (defvar *botpass*  "1234")
   
  +
   (defvar *blacklist* '()
     "A list of lists (label :url \"regex\") or (label :title \"regexp\") used to match either the url or the title of the HN news.
   Matchedp news are not transmitted on irc.
  
positive.code:   (:export "MAIN")
    (:documentation "
  Botihn is a simple IRC bot monitoring Hacker News, and writing to
  irc://irc.freenode.org/#hn the title and url of each new news.
  
  It is run with:
  
     (com.informatimago.small-cl-pgms.botihn:main)
  
  Copyright Pascal J. Bourguignon 2015 - 2019
  Licensed under the AGPL3.
  "))
  (in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN")
  
negative.code: (defun blacklistedp (story)
    (loop
      :for (label kind regexp) :in *blacklist*
      ;; If there is an error, perhaps we should remove the enrty in the *blacklist*
        :thereis (ignore-errors (scan regexp
                                      (ecase kind
                                        (:title (story-title story))
  