fink/packages.lisp

58 lines
935 B
Common Lisp
Raw Normal View History

2008-05-07 09:07:47 +00:00
(in-package :common-lisp)
2008-04-28 07:18:59 +00:00
2008-05-07 09:07:47 +00:00
;(clc:clc-require :cl-ppcre)
2008-05-08 01:36:06 +00:00
;(asdf:oos 'asdf:load-op :cl-ppcre)
2008-05-07 09:07:47 +00:00
(require :sb-bsd-sockets)
2008-04-28 07:18:59 +00:00
2008-05-21 18:46:32 +00:00
(defpackage macro-utils
(:use :common-lisp)
(:export :with-gensyms
:once-only))
(defpackage netpipe
2008-05-08 01:36:06 +00:00
(:use :common-lisp)
(:export :tcp-connect
:nslookup
:tcp-print
:tcp-read))
(defpackage gtp-handler
(:use :common-lisp
:netpipe)
2008-05-08 01:36:06 +00:00
(:export :gtp-client
:gtp-net-client))
2008-05-05 15:00:06 +00:00
(defpackage board
2008-05-21 18:46:32 +00:00
(:use :common-lisp
:macro-utils)
2008-05-19 04:00:04 +00:00
(:export :basic-board
2008-05-27 00:46:43 +00:00
:ranked-board
:get-stone
:set-stone
:coord-to-str
2008-05-26 19:13:18 +00:00
:str-to-coord
:genmove))
2008-05-27 00:46:43 +00:00
(defpackage liberty-shape
(:use :common-lisp
:macro-utils
:board)
(:export :liberty-board))
(defpackage go-bot
(:use :common-lisp
:board)
(:export :*name*
:*version*
:*author*
2008-05-08 01:36:06 +00:00
:*player*
2008-05-26 23:30:59 +00:00
:*cputime*
:set-komi
:set-boardsize
:init-board
:init
2008-05-19 04:00:04 +00:00
:do-play
:do-genmove
))