anchor.diff:  	       (string= input-type "RADIO"))
   	   (when (string-equal (getf input :checked) "CHECKED")
   	     (push (cons (getf input :name) (getf input :value)) parameters)))
  -	  
  +
   	  ((string= input-type "SELECT")
   	   (when (string-equal (getf input :selected) "SELECTED")
   	     (push (cons (getf input :name) (getf input :value)) parameters)))
  
positive.code: ;;;; URLs known to trip exception:
  ;;;;    http://flybase.bio.indiana.edu/reports/FBgn0086348.html
  ;;;;    http://www.ebi.ac.uk/cgi-bin/emblfetch?style=html&Submit=Go&id=CP000158
  ;;;;    http://biocyc.org/META/substring-search?type=NIL&object=PARATHION-DEGRADATION-PWY"   
  ;;;;
  ;;;; For full arguments, see:
  ;;;; http://common-lisp.net/~loliveira/ediware/drakma/request.lisp
  
negative.code: ;;                            (chtml:parse doc (chtml:make-lhtml-builder)))))
  ;;       (scan-out-links flattened-tree))))
  
  ;; URLs in hrefs can have whitespace.
  ;; https://www.w3.org/TR/2014/REC-html5-20141028/infrastructure.html#valid-url-potentially-surrounded-by-spaces
  (defun trim (str)
    (string-trim '(#\Space #\Newline #\Backspace #\Tab #\Linefeed #\Page #\Return #\Rubout) str))
  
  (defun extract-links (doc)
    "Will not include nulls, jump-onlys, and FTP."
    (let ((try-list (get-link-like-things doc)))
      (mapcar #'trim (sane-urls-only try-list))))
  
  (defun get-link-like-things (doc)
    (let ((whittled-list '()))
  