From f51959afdac688b514470ef6f429fd1f70b27631 Mon Sep 17 00:00:00 2001
From: Dan <dan@umbriel.(none)>
Date: Mon, 28 Apr 2008 00:18:59 -0700
Subject: [PATCH] initial git repo setup

---
 gtp.lisp      | 13 +++++++++++++
 packages.lisp |  7 +++++++
 2 files changed, 20 insertions(+)
 create mode 100644 gtp.lisp
 create mode 100644 packages.lisp

diff --git a/gtp.lisp b/gtp.lisp
new file mode 100644
index 0000000..bc428ca
--- /dev/null
+++ b/gtp.lisp
@@ -0,0 +1,13 @@
+(in-package :gtp-handler)
+
+(defun gtp-client ()
+  (do ((quit? nil))
+      (= quit? nil)
+    (dispatch-gtp-command (read-line t))))
+
+(defun dispatch-gtp-command (command-string)
+  (let* ((commands (split-string (string-downcase command-string) " "))
+	 (command (intern (first commands))))
+    (case (command)
+      (
+  
\ No newline at end of file
diff --git a/packages.lisp b/packages.lisp
new file mode 100644
index 0000000..7abbcb8
--- /dev/null
+++ b/packages.lisp
@@ -0,0 +1,7 @@
+(in-package :cl-user)
+
+(clc:clc-require :cl-ppcre)
+
+(defpackage gtp-handler
+  (:use :common-lisp)
+  (:export gtp-client))
\ No newline at end of file