anchor.diff:                                           :foreground foreground))))))))
   
   (defun draw-text (lem-pane string x y attribute)
  -  (capi:apply-in-pane-process-wait-single
  +  (apply-in-pane-process-wait-single
      lem-pane
      nil
      (lambda ()
  
positive.code:    lem-pane))
  
  (defun update-display (lem-pane)
    (capi:apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
  
negative.code:                                  x y w h)))))))
  
  (defun clear (lem-pane)
    (apply-in-pane-process-wait-single
     lem-pane
     nil
     (lambda ()
  