anchor.diff:      (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."))
   
  
positive.code:     (setf (slot-value new-form 'id) (getf form-props :id))
      (setf (slot-value new-form 'verb) (getf form-props :method))
      (setf (slot-value new-form 'name) (getf form-props :name))
      ;; Scan through by type and add "generic" if not otherwise defined. 
      (dolist (input (getf form-props :inputs))
        (let ((input-type (getf input :type)))
  	(when input-type
  
negative.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
  