anchor.diff:      ;; Remove them to make room for the dopplegangers.
       (apply 'remove-input (cons form plist-def))
       ;; Add the dopplegangers to replace the originals.
  -    (mapcar 
  +    (mapcar
        (lambda (r)
          (remf r del-prop)
          (apply #'add-input (cons form r)))
  
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:   "Remove urls that are likely bogus."
    (remove-if #'(lambda (x)
  		 (handler-case
  		  (progn
  		    (puri:parse-uri x) ; make sure edible by puri
  		    (or
  		     (not (> (length x) 0)) ; bigger than 0
  