anchor.diff:  	  (server-id flickr-photo-list-xml)
   	  (photo-id flickr-photo-list-xml)
   	  (secret-id flickr-photo-list-xml)))
  +
  +(defun photo-page-url (flickr-photo-list-xml)
  +  "Construct the page url for a single photo from its xml"
  +  (format nil "http://www.flickr.com/photos/~a/~a"
  +	  (owner-id flickr-photo-list-xml)
  +	  (photo-id flickr-photo-list-xml)))
   
   (defun photo-title (flickr-photo-xml)
     "Get the photo's title from a single photo's xml"
  
positive.code: 				    flickr-photo-xml)
       id))
  
  (defun server-id (flickr-photo-xml)
    "Get the server id from a single photo's xml"
    (ppcre:register-groups-bind (id) ("server=\\\"([^\\\"]+)\\\"" 
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar *paintr-directory-path* "./")
  (defvar *flickr-api-key* "98170ee24764224d926092360a20da8f")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Call local command line tools
  