anchor.diff:  	     (multiple-value-bind
   		   (body response-code headers puri stream must-close-p reason)
   		 ,@body
  -		 (declare (ignore puri stream must-close-p reason))
  +		 (declare (ignore stream must-close-p reason))
   	       (cond
   		 ;; TODO: Doesn't deal with images real well yet.
   		 ((search "png" (cdr (assoc :CONTENT-TYPE headers))) "")
  
positive.code: (defmethod fetch ((agent agent) link)
    "Fetch a URL with a string for the link argument."
    (purge agent)
    (setf (current-url agent) link)
    (with-fetch-attempt agent +agent-timeout+
      (http-request link :redirect 100 :user-agent (user-agent agent))))
  
  
negative.code:     :accessor user-agent
      :initform +user-agent+
      :initarg :user-agent)
     (original-url
      :accessor original-url
      :initform nil)
     (current-url
      :accessor current-url
      :initform nil)
  