From 64e0032f8bda7fedbe186f770e91eeebbdf11547 Mon Sep 17 00:00:00 2001
From: Andrea De Michele <andrea.demichele@gmail.com>
Date: Tue, 4 Mar 2014 15:09:10 +0000
Subject: [PATCH] Fix a problem with macro with-timer

---
 src/clfswm.lisp | 3 ---
 src/tools.lisp  | 2 +-
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 0853644..52d2459 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -135,9 +135,6 @@
     (set-focus-to-current-child)))
 
 
-
-
-
 (define-handler main-mode :exposure (window)
   (awhen (find-frame-window window)
     (display-frame-info it)))
diff --git a/src/tools.lisp b/src/tools.lisp
index 03a9d67..a41249c 100644
--- a/src/tools.lisp
+++ b/src/tools.lisp
@@ -317,7 +317,7 @@ Return the result of the last hook"
   "Start the function fun at delay seconds."
   (funcall #'add-timer delay fun id))
 
-(defmacro with-timer ((delay &optional (id (gensym))) &body body)
+(defmacro with-timer ((delay &optional (id '(gensym))) &body body)
   "Same thing as add-timer but with syntaxic sugar"
   `(add-timer ,delay
 	      (lambda ()
-- 
2.11.4.GIT