anchor.diff:  ;;; XXX This needs work! It needs to do everything that accept does for
   ;;; expanding ptypes and setting up recursive call procesusing
   (defun accept-from-string (type string
  -			   &rest args
  -			   &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)
  -			   (start 0)
  -			   (end (length string)))
  +                           &rest args
  +                           &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)
  +                           (start 0)
  +                           (end (length string)))
     (declare (ignore view))
     ;; XXX work in progress here.
     (with-activation-gestures ((if additional-activations-p
  -				 additional-activation-gestures
  -				 activation-gestures)
  -			     :override activationsp)
  +                                 additional-activation-gestures
  +                                 activation-gestures)
  +                             :override activationsp)
       (with-delimiter-gestures ((if additional-delimiters-p
  -				  additional-delimiter-gestures
  -				  delimiter-gestures)
  -			      :override delimitersp)))
  +                                  additional-delimiter-gestures
  +                                  delimiter-gestures)
  +                              :override delimitersp)))
     (when (zerop (- end start))
       (if defaultp
  -	(return-from accept-from-string (values default
  -						(if default-type-p
  -						    default-type
  -						    type)
  -						0))
  -	(simple-parse-error "Empty string")))
  +        (return-from accept-from-string (values default
  +                                                (if default-type-p
  +                                                    default-type
  +                                                    type)
  +                                                0))
  +        (simple-parse-error "Empty string")))
     (let ((stream (make-instance 'string-input-editing-stream
                    :string string :start start :end end)))
       (multiple-value-bind (val ptype)
  
positive.code: (defun highlight-presentation-1 (presentation stream state)
    (with-output-recording-options (stream :record nil)
      (funcall-presentation-generic-function highlight-presentation
  					   (presentation-type presentation)
  					   presentation
  					   stream
  					   state)))
  
  (defmethod highlight-output-record-tree (record stream state)
    (declare (ignore record stream state))
  
negative.code:       maybe-supertype
        (declare (ignore super-name))
        (if (equal params super-params)
            (values t t)
            (values nil nil)))))
  
  (define-presentation-generic-function
      %presentation-type-specifier-p
  