anchor.diff:  
   (defun cmp-modifiers (a b)
     (let ((cnt-a (logcount a))
  -	(cnt-b (logcount b)))
  +        (cnt-b (logcount b)))
       (cond ((eql cnt-a cnt-b)
  -	   (< a b))
  -	  (t (< cnt-a cnt-b)))))
  +           (< a b))
  +          (t (< cnt-a cnt-b)))))
   
   (defun print-modifiers (stream modifiers style)
     (if (zerop modifiers)
         (when (eq style :long)
  -	(write-string "<nothing>" stream))
  +        (write-string "<nothing>" stream))
         (loop with trailing = nil
  -	    for (bit short long) in +modifier-documentation+
  -	    when (logtest bit modifiers)
  -	    do (progn
  -		 (format stream "~:[~;-~]~A" trailing (if (eq style :short)
  -							  short
  -							  long))
  -		 (setq trailing t)))))
  +            for (bit short long) in +modifier-documentation+
  +            when (logtest bit modifiers)
  +            do (progn
  +                 (format stream "~:[~;-~]~A" trailing (if (eq style :short)
  +                                                          short
  +                                                          long))
  +                 (setq trailing t)))))
   
   ;;; XXX Warning: Changing rapidly!
   ;;;
  
positive.code:     (t `(make-pane ',(first form) :name ',name ,@(cdr form)))))
  
  (defun make-panes-generate-panes-form (class-name menu-bar panes layouts
  				       pointer-documentation)
    (when pointer-documentation
      (setf panes (append panes
  			'((%pointer-documentation%
  			   pointer-documentation-pane)))))
    `(defmethod generate-panes ((fm frame-manager) (frame ,class-name))
       (let ((*application-frame* frame))
         (with-look-and-feel-realization (fm frame)
  	 (unless (frame-panes-for-layout frame)
  	   (setf (frame-panes-for-layout frame)
  		 (list
  		  ,@(loop
  		       for (name . form) in panes
  		       collect
  			 `(cons ',name ,(do-pane-creation-form name form))))))
           (let ,(loop
                    for (name . form) in panes
                    collect `(,name (alexandria:assoc-value
  
negative.code:   `(invoke-with-possible-double-buffering ,frame ,pane (lambda () ,@body)))
  
  (defmethod redisplay-frame-pane :around ((frame application-frame) pane
                                           &key force-p)
    (let ((pane-object (if (typep pane 'pane)
                           pane
                           (find-pane-named frame pane))))
      (restart-case
          (multiple-value-bind (redisplayp clearp)
              (pane-needs-redisplay pane-object)
  