anchor.diff:  
   ;; TODO - Set base url in configuration.
   
  +(asdf:operate 'asdf:load-op :babel)
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Configuration
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (defvar *item-count* 5)
   
  -(defvar *paintr-web-path* "./")
  +(defvar *paintr-directory-path* "./")
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Templates
  
positive.code:   (with-open-file (id-file (current-id-file-path))
      (read id-file)))
  
  (defun slurp-file (file-path)
    "Slurp the contents of the file into a string"
    (with-open-file (file file-path)
      (let ((text (make-string (file-length file))))
        (read-sequence text file)
        text)))
  
negative.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-utf-8-file (html-file-path id))))
  
  (defun write-items (stream current-id)
    "Write the items for the RSS"
  