Write test cases for the ANSI Common Lisp NCONC functions. Here are some test cases for the ANSI Common Lisp NCONC function: Test that NCONC concatenates two lists correctly: (let ((list1 '(1 2 3)) (list2 '(4 5 6))) (nconc list1 list2) (should (equal list1 '(1 2 3 4 5 6)))) Test that NCONC does not modify the original lists: (let ((list1 '(1 2 3)) (list2 '(4 5 6))) (nconc list1 list2) (should (equal list1 '(1 2 3))) (should (equal list2 '(4 5 6)))) Test that NCONC works with empty lists: (let ((list1 '()) (list2 '())) (nconc list1 list2) (should (equal list1 '()))) Test that NCONC works with lists of different lengths: (let ((list1 '(1 2 3)) (list2 '(4 5))) (nconc list1 list2) (should (equal list1 '(1 2 3 4 5)))) Test that NCONC works with lists containing different types of elements: (let ((list1 '(1 2 3)) (list2 '("a" "b" "c"))) (nconc list1 list2) (should (equal list1 '(1 2 3 "a" "b" "c"))))