anchor.diff:  ;;;;    2015-07-17 <PJB> Added commands: help uptime version sources; added restarts.
   ;;;;    2015-04-27 <PJB> Created.
   ;;;;BUGS
  +;;;;    We should better validate syntax of blacklist add inputs.
   ;;;;LEGAL
   ;;;;    AGPL3
   ;;;;
  
positive.code: "))
  (in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN")
  
  (defparameter *version* "1.2.0")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Configuration:
  
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))
                                        (:url   (story-url   story)))))))
  
  (defun log-blacklist-change (nick operation entry)
    (with-open-file (log *blacklist-log-file*
  