anchor.diff:  (defun blacklistedp (story)
     (loop
       :for (label kind regexp) :in *blacklist*
  -      :thereis (scan regexp
  -                     (ecase kind
  -                       (:title (story-title story))
  -                       (:url   (story-url   story))))))
  +    ;; 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))
  +                                      (:url   (story-url   story)))))))
   
   (defun log-blacklist-change (nick operation entry)
     (with-open-file (log *blacklist-log-file*
  
positive.code: ;;;;    2015-07-17 <PJB> Added commands: help uptime version sources; added restarts.
  ;;;;    2015-04-27 <PJB> Created.
  ;;;;BUGS
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;
  
negative.code: "))
  (in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN")
  
  (defparameter *version* "1.2.1")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Configuration:
  