(in-package :stumpwm)

(defvar *globally-previous* '())
(defvar *globally-current* '())