4a40973635ae

--- 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.

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