# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1469204521 0
# Node ID 4a40973635aee8c1c06c31c6b1849b90049a51c5
# Parent  157ba01ed6453256bfff4bac0c14b796498df32e
Add a few more GGP keywords to the list

diff -r 157ba01ed645 -r 4a40973635ae package.lisp
--- a/package.lisp	Mon Mar 28 17:53:35 2016 +0000
+++ b/package.lisp	Fri Jul 22 16:22:01 2016 +0000
@@ -18,7 +18,6 @@
   )
 
 (defpackage #:ggp-rules
-  (:use #:cl)
   (:import-from #:cl #:nil) ; fuckin lol
   (:documentation
    "Symbol storage package.
diff -r 157ba01ed645 -r 4a40973635ae src/ggp.lisp
--- a/src/ggp.lisp	Mon Mar 28 17:53:35 2016 +0000
+++ b/src/ggp.lisp	Fri Jul 22 16:22:01 2016 +0000
@@ -25,7 +25,18 @@
     ggp-rules::done
     ggp-rules::what
 
+    ggp-rules::<=
     ggp-rules::role
+    ggp-rules::init
+    ggp-rules::legal
+    ggp-rules::terminal
+    ggp-rules::goal
+    ggp-rules::does
+    ggp-rules::next
+    ggp-rules::true
+    ggp-rules::or
+    ggp-rules::distinct
+    ggp-rules::not
     ))
 
 
@@ -276,4 +287,8 @@
   is in the middle of a game.  Be careful.
 
   "
-  (clack.handler:stop (slot-value player 'server)))
+  (clack.handler:stop (slot-value player 'server))
+  (setf (slot-value player 'current-match) nil)
+  (setf (slot-value player 'match-roles) nil)
+  (clear-rules-package)
+  )