anchor.diff:          win))))
   
   (defun toggle-fullscreen (win)
  -  (with-accessors (
  -                   (display  x11-window-display)
  -                   (screen  x11-window-screen)
  +  (with-accessors ((display x11-window-display)
  +                   (screen x11-window-screen)
                      (id x11-window-id)
                      (previous-video-mode window-previous-video-mode)
                      (win-width window-width)
  
positive.code:   (glop-xlib:x-store-name (x11-window-display win) (x11-window-id win) title))
  
  (defun destroy-window (win)
    (with-accessors (
                     (display  x11-window-display)
                     (screen  x11-window-screen)
                     (id x11-window-id)
                     (previous-video-mode window-previous-video-mode)
                     (fullscreen window-fullscreen))
  
negative.code:       win
      (if fullscreen
          (progn
            (with-accessors ((height video-mode-height)
                             (width video-mode-width))
                previous-video-mode
              (glop-xlib:set-fullscreen id display nil)
  