anchor.diff:  (defpackage "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN"
     (:use "COMMON-LISP" "CL-IRC" "CL-JSON" "DRAKMA" 
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
  -  (:export "MAIN"))
  +  (:export "MAIN")
  +  (:documentation "
  +Botihn is a simple IRC bot monitoring Hacker News, and writing to
  +irc://irc.freenode.org/#hn the title and url of each new news.
  +
  +It is run with:
  +
  +   (com.informatimago.small-cl-pgms.botihn:main)
  +
  +Copyright Pascal J. Bourguignon 2015 - 2015
  +Licensed under the AGPL3.
  +"))
   (in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.BOTIHN")
   
   
  
positive.code:                                       url)))))
  
  (defun monitor-hacker-news (send)
    (dolist (story (get-new-stories))
      (let ((message (format-story (story story))))
        (when message
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar *server*   "irc.freenode.org"
    "The fqdn of the IRC server.")
  (defvar *nickname* "botihn"
    "The nickname of the botihn user.")
  (defvar *channel*  "#hn"
    "The channel were the HackerNews stories are sent to.")
  (defvar *sources-url*
    "https://gitlab.com/com-informatimago/com-informatimago/tree/master/small-cl-pgms/botihn/"
    "The URL where the sources of this ircbot can be found.")
  (defvar *connection* nil
    "The current IRC server connection.")
  
  (defun msg-hook (message)
    "Answers to PRIVMSG sent directly to this bot."
    (when (string= *nickname* (first (arguments message)))
      (privmsg *connection* (source message)
               (format nil "I'm an IRC bot forwarding HackerNews news to ~A; ~
  