anchor.diff:  (defun generate-rss ()
     "Generate a simple rss feed for the most recent items."
     (with-open-file (file (rss-file-path) 
  -			:direction :output :if-exists :supersede)
  +			:direction :output
  +			:if-exists :supersede
  +			:external-format :utf-8)
       (format file +rss-header+)
       (write-items file (read-current-id))
       (format file +rss-footer+)))
positive.code:       <guid>http://www.robmyers.org/paintr/index.php?image=~a</guid>
        <description><![CDATA[<p><a href=\"http://www.robmyers.org/paintr/index.php?image=~a\">paintr image ~a</a></p>~a]]></description>
      </item>
  " id id id id id (slurp-file (html-file-path id))))
  
  (defun write-items (stream current-id)
    "Write the items for the RSS"
  
negative.code: 
  ;; TODO - Set base url in configuration.
  
  (asdf:operate 'asdf:load-op :babel)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Configuration
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar *item-count* 5)
  
  (defvar *paintr-directory-path* "./")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Templates
  