anchor.diff:      :accessor user-agent
       :initform +user-agent+
       :initarg :user-agent)
  +   (original-url
  +    :accessor original-url
  +    :initform nil)
      (current-url
       :accessor current-url
       :initform nil)
  
positive.code:    ;; form # TODO
     ;; Agent slots.
     user-agent
     current-url
     errors
     content
     code
  
negative.code: 	     (multiple-value-bind
  		   (body response-code headers puri stream must-close-p reason)
  		 ,@body
  		 (declare (ignore stream must-close-p reason))
  	       (cond
  		 ;; TODO: Doesn't deal with images real well yet.
  		 ((search "png" (cdr (assoc :CONTENT-TYPE headers))) "")
  