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:                        :for time = (get-universal-time)
                         :do (if (<= next-time time)
                                 (progn
                                   (handler-case
                                       (monitor-hacker-news (lambda (message) (privmsg *connection* *channel* message)))
                                     (error (err)
                                       (print-backtrace)
                                       (format *error-output* "~%~A~%" err)))
                                   (incf next-time *period*))
                                 (read-message *connection*) #|there's a 10 s timeout in here.|#)))
                  (when *connection*
  
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))))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  