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