anchor.diff:          (sh (xlib:screen-height *screen*))
           (w (xlib:drawable-width *curr*))
           (h (xlib:drawable-height *curr*)))
  -    (move *curr* :x (- (truncate sw 2) (truncate w 2))
  -                 :y (- (truncate sh 2) (truncate h 2)))
  +    (xlib:with-state (*curr*)
  +      (move *curr* :x (- (truncate sw 2) (truncate w 2))
  +		   :y (- (truncate sh 2) (truncate h 2))))
       (when center-pinned-p (on :center-pinned *curr* (window-center *curr*)))))
   
   (defun wash-sticky-position ()
  
positive.code: 				   (2 (list :width width))
  				   (3 (list :height height))))))
      (format t "~&configure-request: ~a ~a ~@[~s~]~%" window value-mask list-mask)
      (restart-case (when list-mask (apply #'move window list-mask))
        (window-error (c)
  	(format t "~&configure-request: ~a ~a~%" c window)
  	'processed)
        (value-error (c)
  	(format t "~&configure-request: ~a ~a~%" c window)
  	'processed))))
  
  ;; Restart functions
  (defmacro defrestart (name)
  
negative.code:   "Set the current window fullscreen."
    (let ((sw (xlib:screen-width *screen*))
          (sh (xlib:screen-height *screen*)))
      (xlib:with-state (*curr*)
        (move *curr* :x 0 :y 0 :width sw :height sh))
      (when pinned-p (on :pinned *curr*))))
  
  (defun window-center (window)
  