feature/native-comp 0f964db 2/2: Add a test for lambda list containing uninterned symbols

[Andrea Corallo]

branch: feature/native-comp
commit 0f964db32797c1525941046d565acdcfa33af42f
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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 50a7280..5f12378 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 fe81896..66f7d8c 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