anchor.diff:  
   (defhandler :map-notify (window override-redirect-p)
     (unless override-redirect-p
  -    (focus (plus window))))
  +    (focus window)))
   
   (defhandler :unmap-notify (window)
     (when (managed-p window)
       (focus (minus window))))
  +
  +(defhandler :map-request (parent send-event-p window)
  +  (format t "~&map-request: ~a ~a ~a~%" parent send-event-p window)
  +  (map-window (plus window)))
  +
  +(defhandler :configure-request (stack-mode window x y width height border-width value-mask)
  +  (let ((list-mask (loop for i below 4
  +                         when (= (ldb (byte 1 i) value-mask) 1)
  +                           nconc (case i
  +                                   (0 (list :x x))
  +                                   (1 (list :y y))
  +                                   (2 (list :width width))
  +                                   (3 (list :height height))))))
  +    (format t "~&configure-request: ~a ~a ~s~%" window value-mask list-mask)
  +    (when list-mask (apply #'move window list-mask))))
   
   ;;; Restart function
   (defun skip-window-or-ignore-async (c)
  
positive.code:              (rplacd ,asc #',fn)
               (push (cons ,sc #',fn) *shortcuts*))))))
  
  (defun move (window x y w h)
    "Move a window."
    (with-state (window)
      (setf (drawable-x window) x (drawable-y window) y
            (drawable-width window) w (drawable-height window) h)))
  
  (defun memove (window &optional x y w h)
    "Memory Move a window (i.e. toggle between current position and the
  
negative.code:       (plus w)))
  
    (intern-atom *display* :_MOTIF_WM_HINTS)
    (setf (window-event-mask *root*) '(:substructure-notify :substructure-redirect))
  
    (setf *last* (setf *curr* (first *windows*)))
  
  