From 331b7e580f05795549996b66127207eebb6a3fc3 Mon Sep 17 00:00:00 2001
From: Boris Smilga <boris.smilga@gmail.com>
Date: Mon, 16 Jul 2012 16:13:39 +0400
Subject: [PATCH] Implicit initialization of local vars (WITH sans =).

---
 src/lib/ps-loop.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/lib/ps-loop.lisp b/src/lib/ps-loop.lisp
index fb833a3..e4de04e 100644
--- a/src/lib/ps-loop.lisp
+++ b/src/lib/ps-loop.lisp
@@ -154,8 +154,7 @@
 (defun a-with-clause (state) ;; so named to avoid with-xxx macro convention
   (multiple-value-bind (var bindings)
       (var-or-bindings state)
-    (eat state :=)
-    (let ((expr (eat state)))
+    (let ((expr (eat state :if :=)))
       (if var
           (prevar var expr state)
           (prebind bindings expr state)))))
-- 
2.11.4.GIT