anchor.diff:  (defun parse-photo-user (photouserxml photourl description colours)
     "Parse the photo user then go on to local stuff or bail"
     (format t "Parsing photo owner info~%")
  -  (let ((username (person-username photouserxml)))
  +  (let ((username (person-username photouserxml))
  +	(userurl (person-profile-url photouserxml)))
       (if username
   	(process-data-locally photourl
   			      (format nil "~a ~a" 
   				      description
  -				      (photo-user-description username))
  +				      (photo-user-description username
  +							      userurl))
   			      colours)
   	(progn
   	  (incf *tries*)
  
positive.code: 	  (server-id flickr-photo-list-xml)
  	  (photo-id flickr-photo-list-xml)
  	  (secret-id flickr-photo-list-xml)))
  
  (defun photo-title (flickr-photo-xml)
    "Get the photo's title from a single photo's xml"
  
negative.code: (defun person-username (person-xml)
    "Get the person's name from a single person's xml"
    (ppcre:register-groups-bind (name) ("<username>([^<]*)</username>" 
  				    person-xml)
  			      name))
  
  (defun person-id (person-xml)
    "Get the person's id from a single person's xml"
    (ppcre:register-groups-bind (name) ("nsid=\\\"([^\\\"]+)\\\"" 
  				    person-xml)
  			      name))
  
  