anchor.diff:  			   &key view
   			   (default nil defaultp)
   			   (default-type nil default-type-p)
  -			   activation-gestures
  +			   (activation-gestures nil activationsp)
   			   (additional-activation-gestures
   			    nil
   			    additional-activations-p)
  -			   delimiter-gestures
  +			   (delimiter-gestures nil delimitersp)
   			   (additional-delimiter-gestures
   			    nil
   			    additional-delimiters-p)
  
positive.code: 				  additional-delimiter-gestures
  				  delimiter-gestures)
  			      :override delimitersp)))
    (when (or (zerop (- end start))
  	    (let ((maybe-end))))
      (if defaultp
  	(return-from accept-from-string (values default
  						(if default-type-p
  
negative.code:   (let ((index 0))
      (multiple-value-bind (val ptype)
  	(with-input-from-string (stream string :start start :end end
                                                 :index index)
  	  (with-keywords-removed (args (:start :end))
  	    (apply #'stream-accept stream type :view +textual-view+ args)))
        (values val ptype index))))
  