anchor.diff:  (defclass wl-client ()
     ((->client :accessor ->client :initarg :->client :initform nil)
      (regions :accessor regions :initarg :regions :initform nil)
  -   (resources :accessor resources :initargs :resources :initform nil)
  +   (resources :accessor resources :initarg :resources :initform nil)
      (pointer :accessor pointer :initarg :pointer :initform nil)
      (keyboard :accessor keyboard :initarg :keyboard :initform nil)))
   
  
positive.code:    effects
     opacity
     operation
     ->region
     rects
     ->client
     regions
     ->pointer
     ->keyboard
     find-region
     client
     ->surface
     ->buffer
     texture
     ->frame-callback
     input-region
     opaque-region
     wl-surface
  
negative.code: 			   (fourth mods))
    surface)
  
  (defmethod deactivate ((surface (eql nil)))
    )
  
  