From 0f964db32797c1525941046d565acdcfa33af42f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 30 Jun 2020 19:14:52 +0200 Subject: [PATCH] Add a test for lambda list containing uninterned symbols * test/src/comp-test-funcs-dyn.el (comp-tests-cl-uninterned-arg-parse-f): New function. * test/src/comp-tests.el (comp-tests-cl-uninterned-arg-parse-f): New test. --- test/src/comp-test-funcs-dyn.el | 3 +++ test/src/comp-tests.el | 5 +++++ 2 files changed, 8 insertions(+) diff --git a/test/src/comp-test-funcs-dyn.el b/test/src/comp-test-funcs-dyn.el index 50a72807be7..5f12378bcf9 100644 --- a/test/src/comp-test-funcs-dyn.el +++ b/test/src/comp-test-funcs-dyn.el @@ -42,6 +42,9 @@ for yyy = xxx collect xxx)) +(cl-defun comp-tests-cl-uninterned-arg-parse-f (a &optional b &aux) + (list a b)) + (provide 'comp-test-dyn-funcs) ;;; comp-test-funcs-dyn.el ends here diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index fe818960dd2..66f7d8c1795 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -578,4 +578,9 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." "Verify CL macro expansion (bug#42088)." (should (equal (comp-tests-cl-macro-exp-f) '(a b)))) +(ert-deftest comp-tests-cl-uninterned-arg-parse-f () + "Verify the parsing of a lambda list with uninterned symbols (bug#42120)." + (should (equal (comp-tests-cl-uninterned-arg-parse-f 1 2) + '(1 2)))) + ;;; comp-tests.el ends here -- 2.39.5