[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-56-g64e0032

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  64e0032f8bda7fedbe186f770e91eeebbdf11547 (commit)
      from  2ee0a21f395a006b88f476c4ff5202b329bfd8fb (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 64e0032f8bda7fedbe186f770e91eeebbdf11547
Author: Andrea De Michele <andrea.demichele at gmail.com>
Date:   Tue Mar 4 15:09:10 2014 +0000

    Fix a problem with macro with-timer

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 ()

-----------------------------------------------------------------------

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


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager