anchor.diff:    (with-open-file (id-file (current-id-file-path))
       (read id-file)))
   
  -(defun slurp-file (file-path)
  +(defun slurp-utf-8-file (file-path)
     "Slurp the contents of the file into a string"
  -  (with-open-file (file file-path)
  +  (with-open-file (file file-path
  +			:external-format :utf-8)
       (let ((text (make-string (file-length file))))
         (read-sequence text file)
         text)))
  
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
  