From 3afaacae022a0cdb8ad9ee6e9a599ce5ae19cbdf Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sat, 11 May 2019 15:53:37 +0200 Subject: [PATCH] Debug snake move api --- server/api/api.lisp | 6 ------ 1 file changed, 6 deletions(-) diff --git a/server/api/api.lisp b/server/api/api.lisp index 476f3f9..6d91f57 100644 --- a/server/api/api.lisp +++ b/server/api/api.lisp @@ -51,12 +51,6 @@ (let* ((dir (getf data :direction)) (game-id (getf data :game-id)) (game (get-game gm game-id))) - (cond - ((equal dir "up") (setf dir :up)) - ((equal dir "down") (setf dir :down)) - ((equal dir "left") (setf dir :left)) - ((equal dir "right") (setf dir :right)) - (t (setf dir nil))) (if dir (refresh game :dir dir) (refresh game))