anchor.diff:    "Return a string representing the current rfc 822 time"
     (multiple-value-bind (seconds minutes hours day month year day-of-the-week 
   				 daylight-savings-time-flag time-zone)
  -			(get-decoded-time)  
  +      (decode-universal-time (get-universal-time) 0) 
       (declare (ignore day-of-the-week daylight-savings-time-flag time-zone))
       (format nil "~a ~a ~a ~2,'0d:~2,'0d:~2,'0d GMT" 
   	    day
  
positive.code: 			:external-format :utf-8)
      (format file "<!--~a--><strong>How I made this image.</strong><br />~%I found a palette at colr called '~a' with the following ~a: ~a.<br />~%I searched for those tags on flickr and found an image called <a href=\"~a\">~a</a> by ~a.<br />~%I traced that using autotrace and applied the colr palette to it.<br />~%This image is licenced under the <a href='http://creativecommons.org/licenses/by-sa/3.0/'>~%Creative Commons Attribution Share-Alike Licence</a>"
  	    (current-rfc-822-time)	    
  	    palette-name
  	    (tag-or-tags palette-tags)
  	    (format-tags palette-tags)
  	    photourl 
  	    photoname 
  	    photousername)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Main flow of control
  
negative.code: 
  (require 'cl-ppcre)
  (require 'drakma)
  (require 'cl-who)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Configuration
  