anchor.diff:  #!/usr/local/bin/sbcl --script
  -;;; Most simple window manager on earth. It is a fork from the lisp
  -;;; version of tinywm.
  +;;; Used to be the most simple window manager on earth. It is a fork
  +;;; from the lisp version of tinywm.
   
   ;;; Load CLX and make a package
   (require 'asdf)
  
positive.code:         (let ((c (keysym->keycodes *display* (car (character->keysyms k)))))
            (cons state c))
          (cons state k))))
  
  (defparameter *shortcuts* 
    (list (cons (compile-shortcut '(:shift #\q)) 'quit))
    "Shortcuts alist initialized with the quit command.")
  
  (defmacro defshortcut (key &body body)
    "Define a new shortcut in *shortcuts* alist. The key in this alist
  
negative.code: (defshortcut (#\e) (run-program "emacs" nil :wait nil :search t))
  (defshortcut (#\w) (run-program "xxxterm" nil :wait nil :search t))
  (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  (defshortcut (#\n) (next *display*))
  (defshortcut (#\p) (next *display* #'1-))
  
  ;;; Modifier keypress avoidance code
  (defvar *mods-code* (multiple-value-call #'append (modifier-mapping *display*)))
  
  (defun is-modifier (keycode)
    "Return t if keycode is a modifier"
    (find keycode *mods-code* :test #'eql))
  
  ;;; Main
  (defun main ()
  