Test for MR marcoheisig#9 issue.

Verify that the previous version of cl4py would experience errors because the python readtable was used to read *all* input to the lisp process (instead of only input from the Python process).

test/sample-program.lisp

@@ -0,0 +1,4 @@
+(in-package :common-lisp-user)
+
+(defun foo-{a7lkj9lakj} ()
+  nil)

test/test_for_readtable.py

@@ -0,0 +1,39 @@
+from pytest import fixture
+import cl4py
+import os
+
+# pytest forces violation of this pylint rule
+# pylint: disable=redefined-outer-name
+
+
+@fixture(scope="module")
+def lisp():
+    return cl4py.Lisp()
+
+
+@fixture(scope="module")
+def cl(lisp):
+    return lisp.function("find-package")("CL")
+
+
+# This test verifies issue underlying MR #9
+def test_readtable_problem(cl):
+    retval = cl.compile_file(
+        os.path.join(os.path.dirname(__file__), "sample-program.lisp")
+    )
+    outfile = os.path.join(os.path.dirname(__file__), "sample-program.fasl")
+    try:
+        assert retval[0] == outfile
+        assert os.path.exists(retval[0])
+        assert retval[1] == ()
+        assert retval[2] == ()
+    finally:
+        cleanup(outfile)
+    cleanup(outfile)
+
+def cleanup(outfile):
+    if os.path.exists(outfile):
+        try:
+            os.remove(outfile)
+        except:                 # pylint: disable=bare-except
+            pass