anchor.diff:          (lem-pane-resize-callback lem-pane)))))
   
   (defun destroy-window-pane (window-pane)
  -  (gp:destroy-pixmap-port (window-pane-pixmap window-pane)))
  +  (declare (ignore window-pane)))
   
   (defun change-font (window-pane family size)
     (let ((normal-font (gp:find-best-font
  
positive.code: 
  (defun update-window (window-pane)
    (with-apply-in-pane-process-wait-single (window-pane)
      (multiple-value-bind (w h) (capi:simple-pane-visible-size window-pane)
        (when-let (pixmap (window-pane-pixmap window-pane)) (gp:destroy-pixmap-port pixmap))
        (setf (window-pane-pixmap window-pane) (gp:create-pixmap-port window-pane w h))
        (dolist (fn (nreverse (window-pane-drawing-queue window-pane)))
          (funcall fn (window-pane-pixmap window-pane)))
        (gp:copy-pixels window-pane (window-pane-pixmap window-pane) 0 0 w h 0 0)
        (setf (window-pane-drawing-queue window-pane) nil))))
  
  (defun window-pane-display-callback (window-pane &rest args)
    (declare (ignore args))
    (with-error-handler ()
      (when (window-pane-pixmap window-pane)
        (multiple-value-bind (w h) (capi:simple-pane-visible-size window-pane)
          (gp:copy-pixels window-pane (window-pane-pixmap window-pane) 0 0 w h 0 0)))))
  
  (defun window-pane-resize-callback (window-pane &rest args)
    (declare (ignore args))
  
negative.code:    (drawing-queue
      :initform nil
      :accessor window-pane-drawing-queue)
     (window
      :initform nil
      :initarg :window
  