Add admin interface

server/game/game.lisp

@@ -21,6 +21,12 @@
     :initform nil
     :accessor game-over)))
 
+;;; Admin function
+(defmethod admin ((g game) &key (move nil move-supplied-p))
+  (with-slots (snake) g
+    (when move-supplied-p (setf (nth 0 snake) move))))
+                  
+
 ;;; Class constructor to initialize the snake
 (defmethod initialize-instance :after ((g game) &key)
   (with-slots (snake initial-size initial-position) g