diff --git a/ansi-tests/macrolet.lsp b/ansi-tests/macrolet.lsp index b5ac38ff9aa29c446ada592382c4152d38c030d4..d470210821e296471df1ceb1d3fbb964bb438527 100644 --- a/ansi-tests/macrolet.lsp +++ b/ansi-tests/macrolet.lsp @@ -333,6 +333,12 @@ (nil 2) (1 2)) +;;; &whole is followed by a destructuring pattern (see 3.4.4.1.2) +(deftest macrolet.36 + (macrolet ((%m (&whole (m a b) c d) `(quote (,m ,a ,b ,c ,d)))) + (%m 1 2)) + (%m 1 2 1 2)) + ;;; Symbol-macrolet tests (deftest symbol-macrolet.1