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.

diff --git a/test/src/comp-test-funcs-dyn.el b/test/src/comp-test-funcs-dyn.el
index 50a72807be79d39d926eedc0a18f34ced15923a5..5f12378bcf9d0d41f598183ae31e80481a207327 100644 (file)
--- 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 fe818960dd2c06ac08967748511f4150f80ab30c..66f7d8c1795582df175a5eda36ee171555018067 100644 (file)
--- 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