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: 
  ;; Encoding is to handle high byte characters in names from flickr
  
  (defparameter +rss-header+ "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>
  <rss version=\"2.0\">
    <channel>
      <title>paintr</title>
  
negative.code: (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
  			:external-format :utf-8)
      (format file +rss-header+)
      (write-items file (read-current-id))
      (format file +rss-footer+)))