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:   broad use (e.g. links), see run."))
  
  ;; Helper for catching errors while trying to fetch something.
  ;; TODO: would this be better handled by a macro?
  (defmacro with-fetch-attempt (agent timeout &body body)
    ""
    `(labels ((glitch (err-str)
  	      (setf (errors ,agent) (cons err-str (errors ,agent)))
  	      nil))
  
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)
  