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:   (setf (content agent) content)
    (setf (forms agent) (make-forms-from-doc content))
    (let ((raw-links (extract-links content)))
      ;; Optionally make the links full (canonical) before processing. 
      (when +make-canonical+
        (setf raw-links
  	    (mapcar (lambda (x)
  		      ;;(format t "c: [~A] [~A]~%" x (current-url agent))
  		      (make-canonical x :relative-to (current-url agent)))
  		    raw-links)))
      ;; ;; Optionally remove the fragment before processing. 
      ;; (when +clean-links+
      ;;   ;; Remove jumps.
      ;;   (setf raw-links (mapcar (lambda (x)
  
negative.code:     (mapcar
       (lambda (input) (setf (getf input property) new-value))
       inputs-to-change)))
  
  (defgeneric add-input-property (form new-prop new-val &rest plist-def)
    (:documentation "Add a new input proprty to the form."))
  
  