From 10c613da3bba02a1e3c5bf3d2d04e614711047c5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <jahvascriptmaniac+github@free.fr>
Date: Sun, 7 Nov 2010 00:16:50 +0100
Subject: [PATCH] Bug sur le deftest match capture labels

---
 match.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/match.lisp b/match.lisp
index 2e219ea..efde47f 100644
--- a/match.lisp
+++ b/match.lisp
@@ -1104,7 +1104,7 @@
                                                 (intern (format nil "LABELS-~w" param)))
                                               params)
                                ,@fbody)))
-                   declarations))
+                   name params fbody))
   '((foo . (lambda (labels-x labels-y) (list x y)))
     (bar . (lambda (labels-z labels-w) (print z) (print w)))
     (quux . (lambda ()))))