anchor.diff:  (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-))
  +(defshortcut (#\n) (next))
  +(defshortcut (#\p) (next #'1-))
  +(defshortcut (:control #\t) (flast))
   (defshortcut (#\h) (toggle-hide))
   
   ;;; Modifier keypress avoidance code
  
positive.code:                   (focus window)))
                 (:destroy-notify
                  (window)
                  (setf *windows* (remove window *windows* :test #'window-equal)))))
        (ungrab-button *root* (code move) :modifiers (state move))
        (ungrab-button *root* (code resize) :modifiers (state resize))
        (ungrab-key *root* (code prefix) :modifiers (state prefix))
  
negative.code: ;;; Used to be the most simple window manager on earth. It is a fork
  ;;; from the lisp version of tinywm.
  
  ;;; Load swank and make a server
  (require 'asdf)
  (asdf:load-system :swank)
  (swank:create-server :port 4005 :dont-close t)
  
  ;;; Load CLX and make a package
  (asdf:load-system :clx)
  (defpackage :most.simple.wm
    (:use :common-lisp :xlib :sb-ext))
  