From: Daniel Kochmański <daniel@turtleware.eu>
Date: Wed, 19 Aug 2015 13:47:38 +0000 (+0200)
Subject: check-keyword: fix typo
X-Git-Tag: ECL-16.0.0~1^2~17
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=29e1847f5dfc1aba43e990b5de8c2a17f4094098;p=ecl.git

check-keyword: fix typo

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/lsp/defmacro.lsp b/src/lsp/defmacro.lsp
index 2851c3a..f80fb64 100644
--- a/src/lsp/defmacro.lsp
+++ b/src/lsp/defmacro.lsp
@@ -73,7 +73,7 @@
       (setq arg (car tail) tail (cdr tail)))
     (cond ((eq head :allow-other-keys)
            (when (not aok-flag)
-             (setq allow-other-keys tail aok-flag t)))
+             (setq allow-other-keys arg aok-flag t)))
           ((not (member head keywords))
            (setq err head)))))