www

commit 10c613da3bba02a1e3c5bf3d2d04e614711047c5
parent 7c976ddf21b17e4bca10f7c76ca8ee91529e392e
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Sun,  7 Nov 2010 00:16:50 +0100

Bug sur le deftest match capture labels

Diffstat:
M
match.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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 ()))))