q*マクロ展開バグ修正

sile · Apr 6, 2012 · 0635613 · 0635613
1 parent 0c722e0
commit 0635613
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/command.lisp b/command.lisp
@@ -121,7 +121,7 @@
 (defmacro q* ((&key watch (connection *default-connection*) timeout) &body commands-exp)
   (let ((commands (gensym)))
     `(if (null ,watch)
-         (q ,commands-exp :connection ,connection :timeout ,timeout)
+         (q (locally ,@commands-exp) :connection ,connection :timeout ,timeout)
        (progn
          (execute* :watch ,watch :connection ,connection) ; XXX: 多重評価
          (let ((,commands (locally ,@commands-exp)))