anchor.diff:  and join to the *CHANNEL* where HackerNews are published."
     (let ((*package* (load-time-value (find-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN"))))
       (configure)
  +    (load-blacklist)
       (with-simple-restart (quit "Quit")
         (catch :gazongues
           (with-retry (sleep (+ 10 (random 30)))
  
positive.code: (defun blacklistedp (story)
    (loop
      :for (label kind regexp) :in *blacklist*
        :thereis (scan regex
                       (ecase kind
                         (:title (story-title story))
                         (:url   (story-url   story))))))
  
negative.code: (defun monitor-hacker-news (send)
    "Sends the new news message lines by calling the SEND function.
  Updates the *LAST-STORY* ID."
    (dolist (id (get-new-stories))
      (let ((story (story id)))
       (unless (blacklistedp story)
         (let ((message (format-story story)))
           (when message
             (funcall send message))
           (setf *last-story* story))))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  