Add test for using prim names as variable names not getting broken du…

…ring preprocessing

resources/tests/module/std/prepend.clinc

@@ -0,0 +1,6 @@
+(defun prepend (a b)
+    (if a
+        (c (f a) (prepend (r a) b))
+        b
+    )
+)

resources/tests/module/test_prepend.clsp

@@ -0,0 +1,4 @@
+(include *standard-cl-23*)
+
+(import std.prepend)
+(export (X Y) (prepend X Y))

src/tests/compiler/modules.rs

@@ -387,3 +387,20 @@ fn test_simple_module_compliation_simple_type_2() {
         }],
     );
 }
+
+#[test]
+fn test_function_with_argument_names_overlapping_primitives() {
+    let filename = "resources/tests/module/test_prepend.clsp";
+    let content = fs::read_to_string(filename).expect("file should exist");
+    let hex_filename = "resources/tests/module/test_prepend.hex";
+
+    test_compile_and_run_program_with_modules(
+        filename,
+        &content,
+        &[HexArgumentOutcome {
+            hexfile: hex_filename,
+            argument: "((1 2 3) (4 5 6))",
+            outcome: Some("(q 2 3 4 5 6)"),
+        }],
+    );
+}