anchor.diff:      `(let ((,sc (compile-shortcut ',key)))
          (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
   
  -(defun next (display &optional (way #'1+))
  +(defun focus (window)
  +  (when (and (member window *windows* :test #'window-equal)
  +             (eql (window-map-state window) :viewable))
  +    (setf *last* (input-focus *display*)
  +          (window-priority window) :above)
  +    (set-input-focus *display* window :pointer-root)))
  +
  +(defun next (&optional (way #'1+))
     (when *windows*
  -    (let* ((cw (input-focus display))
  +    (let* ((cw (input-focus *display*))
              (ncw (or (position-if #'(lambda (w) (window-equal w cw)) *windows*) 0))
              (n (length *windows*))
              (next (mod (funcall way ncw) n)))
         (focus (nth next *windows*)))))
   
  -(defun focus (window)
  -  (setf (window-priority window) :above)
  -  (set-input-focus *display* window :pointer-root))
  +(defun flast ()
  +  (if *last*
  +      (let ((cw (input-focus *display*)))
  +        (focus *last*)
  +        (setf *last* cw))
  +      (setf *last* (input-focus *display*))))
   
   (defun toggle-hide ()
     (dolist (w *windows*)
  
positive.code: ;;; 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)
  (asdf:load-system :clx)
  (defpackage :most.simple.wm
    (:use :common-lisp :xlib :sb-ext))
  
negative.code:              (query-tree *root*))
    "List of managed windows")
  
  (defparameter *last* nil "Last focused window")
  
  (defmacro defshortcut (key &body body)
    "Define a new shortcut in *shortcuts* alist. The key in this alist
    is in (state . code) form and the associated value is a lambda
  