anchor.diff:  	(verb (verb form))
   	(parameters (to-drakma-parameters form))) ; to be used as drakma's
       (purge agent) ; Clean out old stuff.
  -    ;;; Straighten links.
  +    ;; Straighten links.
       (setf (current-url agent) (make-canonical action :relative-to old-url))
       ;; Run.
       (with-fetch-attempt agent +agent-timeout+
  
positive.code: 		     (cl-ppcre::scan "^#" x) ; not a JS hash trick
  		     (cl-ppcre::scan "^ftp\:\/\/" x) ; not ftp
  		     (cl-ppcre::scan "^mailto\:" x) ; not "mailto"
  		     (cl-ppcre::scan "^feed\:\/\/" x))) ; not a "feed" link
  		  (PURI:URI-PARSE-ERROR (upe) (declare (ignore upe)) t)))
  	     list))
  
  
negative.code:    ;; form # TODO
     ;; Agent slots.
     user-agent
     original-url ; before redirect
     current-url ; after redirect
     errors
     content
     code
  