Bug sur le deftest match capture labels

2010-11-07 00:16:50 +01:00 · 2010-11-07 00:16:50 +01:00 · 10c613da3b
commit 10c613da3b
parent 7c976ddf21
1 changed files with 1 additions and 1 deletions
--- 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 ()))))