anchor.diff:  
   (defun fullscreen ()
     "Toggle fullscreen state of the current window."
  -  (unless (listp *curr*)
  -    (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))))))
  +  (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."
  
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:       (when *dim*
          (apply #'move *curr* *dim*)
          (setf *dim* nil)))
      (let* ((grouper (find-if #'(lambda (f) (funcall f window)) *groupers*))
             (group (when (functionp grouper)
                      (loop for w in (query-tree *root*)
  