anchor.diff:  ;;; Load CLX and make a package
   (ql:quickload :clx)
   (defpackage :most.simple.wm
  -  (:use :common-lisp :xlib))
  +  (:use :common-lisp))
   (in-package :most.simple.wm)
   
  -(defvar *display* (open-default-display))
  -(defvar *screen* (display-default-screen *display*))
  -(defvar *root* (screen-root *screen*))
  +(defvar *display* (xlib:open-default-display))
  +(defvar *screen* (xlib:display-default-screen *display*))
  +(defvar *root* (xlib:screen-root *screen*))
   (defvar *windows* nil "List of managed windows.")
   (defvar *last* nil "Last focused window.")
   (defvar *curr* nil "Current focused window.")
  
positive.code:   (multiple-value-bind (x y width height dx dy dw dh)
        (correct-size window x y width height dx dy dw dh)
      ;; if not provided get current geometry
      (unless x (setf x (drawable-x window)))
      (unless y (setf y (drawable-y window)))
      (unless width (setf width (drawable-width window)))
      (unless height (setf height (drawable-height window)))
  
      ;; dx, dy, dw and dh are rewritten in absolute form
      (when dx (incf x dx))
  
negative.code: (defun grab-mouse (window event-mask)
    "Grab pointer with a cursor change that states that we're talking to
  the window manager."
    (xlib:grab-pointer window event-mask :cursor *cursor*))
  
  (defun ungrab-mouse () (xlib:ungrab-pointer *display*))
  
  (defun load-rc ()
    (ungrab-all)
    (ignore-errors (load *rc*))
    (grab-all)
    (xlib:display-finish-output *display*))
  
  ;;; Keyboard shortcuts
  (defshortcut (:shift #\r) (load-rc))
  