adding lisp-interpreter

lisp-interpreter/tests/printer/.gitignore

@@ -0,0 +1,2 @@
+temp1.scm
+temp2.scm

lisp-interpreter/tests/printer/sample.scm

@@ -0,0 +1,19 @@
+(book
+  (author "ARISTOTLE")
+  (title "Categories")
+  (year -350)
+  (tags #(philosophy logic definitions substance))
+  (lines
+     "Things are said to be named \"equivocally\" when, though they have a common name, the definition corresponding with the name differs for each."
+     "Thus, a real man and a figure in a picture can both lay claim to the name \"animal\"; yet these are equivocally so named, for, though they have a common name, the definition corresponding with the name differs for each"
+     "For should any one define in what sense each is an animal, his definition in the one case will be appropriate to that case only.\n"
+     "On the other hand, things are said to be named \"univocally\" which have both the name and the definition answering to the name in common"
+     "A man and an ox are both \"animal\", and these are univocally so named, inasmuch as not only the name, but also the definition, is the same in both cases:"
+     "for if a man should state in what sense each is an animal, the statement in the one case would be identical with that in the other.\n"
+
+     "Things are said to be named \"derivatively\", which derive their name from some other name, but differ from it in termination."
+     "Thus the grammarian derives his name from the word \"grammar\", and the courageous man from the word \"courage\"."
+    ))
+
+(alphabet #\a #\b #\c #\d #\e)
+(nums 0.0 0.25 0.5 0.75 1.0)

lisp-interpreter/tests/printer/test.sh

@@ -0,0 +1,14 @@
+#!/bin/sh
+
+# make sure reader and writer work and are compatible.
+
+# 1. load s expresion, print it out.
+cat sample.scm | ../../printer > temp1.scm
+
+# 2. load the output, print it out again.
+cat temp1.scm | ../../printer > temp2.scm
+
+# 3. ensure both outputs match
+cmp temp1.scm temp2.scm
+
+