diff --git a/extra/lisp/parser/authors.txt b/extra/lisp/parser/authors.txt
new file mode 100644
index 0000000000..4b7af4aac0
--- /dev/null
+++ b/extra/lisp/parser/authors.txt
@@ -0,0 +1 @@
+James Cash
diff --git a/extra/lisp/parser/parser-tests.factor b/extra/lisp/parser/parser-tests.factor
new file mode 100644
index 0000000000..025b45e60d
--- /dev/null
+++ b/extra/lisp/parser/parser-tests.factor
@@ -0,0 +1,34 @@
+! Copyright (C) 2008 James Cash
+! See http://factorcode.org/license.txt for BSD license.
+USING: lisp.parser tools.test ;
+
+IN: lisp.parser.tests
+
+{ 1234  }  [
+  "1234" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ 123.98 } [
+  "123.98" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ "aoeu" } [
+  "\"aoeu\"" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ "aoeu\"de" } [
+  "\"aoeu\\\"de\"" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ lisp-symbol f "foobar" } } [
+  "foobar" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ lisp-symbol f "+" } } [
+  "+" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ s-exp f
+     V{ T{ lisp-symbol f "foo" } 1 2 "aoeu" } } } [
+  "(foo 1 2 \"aoeu\")"   
+] unit-test
\ No newline at end of file
diff --git a/extra/lisp/parser/summary.txt b/extra/lisp/parser/summary.txt
new file mode 100644
index 0000000000..aa407b3dfb
--- /dev/null
+++ b/extra/lisp/parser/summary.txt
@@ -0,0 +1 @@
+EBNF grammar for parsing Lisp
diff --git a/extra/lisp/parser/tags.txt b/extra/lisp/parser/tags.txt
new file mode 100644
index 0000000000..d1f6fa1ef3
--- /dev/null
+++ b/extra/lisp/parser/tags.txt
@@ -0,0 +1,2 @@
+lisp
+parsing