anchor.diff:  				  additional-delimiter-gestures
   				  delimiter-gestures)
   			      :override delimitersp)))
  -  (when (or (zerop (- end start))
  -	    (let ((maybe-end))))
  +  (when (zerop (- end start))
       (if defaultp
   	(return-from accept-from-string (values default
   						(if default-type-p
  
positive.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))))
  
negative.code: 			   &key view
  			   (default nil defaultp)
  			   (default-type nil default-type-p)
  			   (activation-gestures nil activationsp)
  			   (additional-activation-gestures
  			    nil
  			    additional-activations-p)
  			   (delimiter-gestures nil delimitersp)
  			   (additional-delimiter-gestures
  			    nil
  			    additional-delimiters-p)
  