anchor.diff:  
   (defmethod reset-frame (frame &rest client-settings)
     (loop for (setting value) on client-settings by #'cddr
  -	do (setf (client-setting frame setting) value)))
  +        do (setf (client-setting frame setting) value)))
   
   (defmethod frame-drag-and-drop-feedback
       ((frame standard-application-frame) from-presentation stream
  
positive.code:     ((frame standard-application-frame) input-context stream event)
    (when *pointer-documentation-output*
      (with-accessors ((frame-documentation-state frame-documentation-state)
  		     (documentation-record documentation-record))
          frame
        (setf frame-documentation-state
  	    (frame-compute-pointer-documentation-state frame
  						       input-context
  						       stream
  						       event))
        ;; These ugly special bindings work around the fact that the outer
        ;; updating-output form closes over its body and allow the inner
        ;; form to see the correct, current values of those variables.
        (let ((%input-context% input-context)
  	    (%stream% stream)
  	    (%doc-state% frame-documentation-state)
  	    (%event% event))
  	(declare (special %input-context% %stream% %doc-state% %event&))
  	(if (and documentation-record
                   (output-record-parent documentation-record))
  	    (redisplay documentation-record *pointer-documentation-output*)
  	    (progn
  	      (setf documentation-record
                      (updating-output (*pointer-documentation-output*)
                        (updating-output (*pointer-documentation-output*
                                          :cache-value %doc-state%
  
negative.code:      (let ((command (command-menu-item-value object))
             (table (frame-command-table frame)))
         (unless (listp command)
           (setq command (partial-command-from-name command table)))
         (if (partial-command-p command)
             (funcall *partial-command-parser* table stream command 0)
             command)))))
  
  (defmethod read-frame-command ((frame application-frame)
                                 &key (stream *standard-input*))
    ;; The following is the correct interpretation according to the spec.
    ;; I think it is terribly counterintuitive and want to look into
    ;; what existing CLIMs do before giving in to it.
  