anchor.diff:  
   (defun transient-for-managed-p (window)
     (loop for id in (xlib:get-property window :WM_TRANSIENT_FOR)
  -	  thereis (find id *windows* :key #'xlib:window-id)))
  +          thereis (find id *windows* :key #'xlib:window-id)))
   
   (defun plus (window)
     "Add window to the list of managed windows."
  
positive.code: 
  (defmacro defhandler (event keys &body body)
    (let ((fn-name (gensym (symbol-name event)))
  	(event-slots (gensym)))
      `(labels ((,fn-name (&rest ,event-slots &key ,@keys &allow-other-keys)
  		(declare (ignore ,event-slots))
  		,@body))
         (setf (elt *handlers* (position ,event xlib::*event-key-vector*)) #',fn-name))))
  
  (defun xclass (window) (multiple-value-bind (name class)
  
negative.code:                      (t (setf height new-h)))))
      (unless (pinned-p window)
        (setf (xlib:drawable-x window) x
              (xlib:drawable-y window) y
              (xlib:drawable-width window) width
              (xlib:drawable-height window) height))
      (values x y width height dx dy dw dh)))
  
  (defun win= (a b)
  