anchor.diff:  (defparameter *handlers* (make-list (length xlib::*event-key-vector*)
                                       :initial-element #'(lambda (&rest slots))))
   (defparameter *windows* nil "List of managed and mapped windows.")
  -(defparameter *hidden* nil "List of hidden windows.")
   (defparameter *last* nil "Last focused window.")
   (defparameter *curr* nil "Current focused window.")
  +(defvar *dim* nil "Dimension of current window before fullscreen.")
   
   (defmacro defhandler (event keys &body body)
     (let ((fn-name (gensym))
  
positive.code:        (setf *shortcuts* (remove ,sc *shortcuts* :test #'equal :key #'car))
         (push (cons ,sc #'(lambda () ,@body)) *shortcuts*))))
  
  (defgeneric focus (window))
  
  (defmethod focus :before (window)
    (unless (null window)
      (unless (win= window *curr*) (setf *last* *curr*))
      (setf *curr* window)))
  
  (defmethod focus ((window window))
  
negative.code:       (setf *last* (next #'1+ *curr*)))
      *curr*))
  
  (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))))))
  
  (defmacro defror (command)
    "Define a raise or run command."
  