Этот коммит содержится в:
Dan 2008-04-28 00:18:59 -07:00
Коммит f51959afda
2 изменённых файлов: 20 добавлений и 0 удалений

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

7
packages.lisp Обычный файл
Просмотреть файл

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