anchor.diff:  (defun blacklistedp (story)
     (loop
       :for (label kind regexp) :in *blacklist*
  -      :thereis (scan regex
  +      :thereis (scan regexp
                        (ecase kind
                          (:title (story-title story))
                          (:url   (story-url   story))))))
  
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: 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)))
  