diff options
| author | Loic Guegan <manzerberdes@gmx.com> | 2019-05-11 15:53:37 +0200 |
|---|---|---|
| committer | Loic Guegan <manzerberdes@gmx.com> | 2019-05-11 15:53:37 +0200 |
| commit | 3afaacae022a0cdb8ad9ee6e9a599ce5ae19cbdf (patch) | |
| tree | e55bb894fc32f4bd39a2d06ed9efd7168e925de9 | |
| parent | 59f42680ef0b20377989f15aa81f15be2f6a0d59 (diff) | |
Debug snake move api
| -rw-r--r-- | server/api/api.lisp | 6 |
1 files changed, 0 insertions, 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)) |