anchor.diff:        (when *dim*
           (apply #'move *curr* *dim*)
           (setf *dim* nil)))
  -    (setf *curr* window)
  -
       (let* ((grouper (find-if #'(lambda (f) (funcall f window)) *groupers*))
              (group (when (functionp grouper)
                       (loop for w in (query-tree *root*)
  
positive.code:       ;;           (format t "Error ~a~%" c))) 'quit))
        ((eql (process-event *display* :handler *handlers* :discard-p t) 'quit))))
  
  
  (defun main ()
    ;; Grab prefix and mouse buttons on root
    (grab-key *root* (code *prefix*) :modifiers (state *prefix*))
  
negative.code: 
  (defun fullscreen ()
    "Toggle fullscreen state of the current window."
    (cond (*dim*
           (apply #'move *curr* *dim*)
           (setf *dim* nil))
          (t (let* ((screen (display-default-screen *display*))
                    (sw (screen-width screen))
                    (sh (screen-height screen)))
               (setf *dim* (list (drawable-x *curr*) (drawable-y *curr*)
                                 (drawable-width *curr*) (drawable-height *curr*)))
               (move *curr* 0 0 sw sh)))))
  
  (defmacro defror (command)
    "Define a raise or run command."
  