From 39938c58ffeec32f333109c52dc5977ae5a88ee7 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sun, 6 Apr 2014 01:59:14 +0200
Subject: [PATCH] Declare second mode global variables in package.lisp

---
 src/clfswm-second-mode.lisp | 3 ---
 src/package.lisp            | 5 +++++
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/clfswm-second-mode.lisp b/src/clfswm-second-mode.lisp
index 3c6c501..979220b 100644
--- a/src/clfswm-second-mode.lisp
+++ b/src/clfswm-second-mode.lisp
@@ -25,9 +25,6 @@
 
 (in-package :clfswm)
 
-(defparameter *sm-window* nil)
-(defparameter *sm-font* nil)
-(defparameter *sm-gc* nil)
 
 (defparameter *second-mode-leave-function* nil
   "Execute the function if not nil")
diff --git a/src/package.lisp b/src/package.lisp
index 0bb1758..43919f1 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -78,6 +78,11 @@ It is particulary useful with CLISP/MIT-CLX.")
 (defparameter *root* nil)
 (defparameter *no-focus-window* nil)
 
+(defparameter *sm-window* nil)
+(defparameter *sm-font* nil)
+(defparameter *sm-gc* nil)
+
+
 (defparameter *background-image* nil)
 (defparameter *background-gc* nil)
 
-- 
2.11.4.GIT