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: (defun blacklistedp (story)
    (loop
      :for (label kind regexp) :in *blacklist*
        :thereis (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*
  
negative.code: "))
  (in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN")
  
  (defparameter *version* "1.2.1")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Configuration:
  