initial git repo setup

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)
+      (
+  

packages.lisp

@@ -0,0 +1,7 @@
+(in-package :cl-user)
+
+(clc:clc-require :cl-ppcre)
+
+(defpackage gtp-handler
+  (:use :common-lisp)
+  (:export gtp-client))