Change make-array to make-list

1 files changed, 3 insertions, 4 deletions

diff --git a/server/game.lisp b/server/game.lisp
index 5c0e368..4eb5252 100644
--- a/server/game.lisp
+++ b/server/game.lisp
@@ -57,9 +57,8 @@
   (let* ((old-size (length snake))
          (new-size (+ old-size grow-size))
          (tail (nth (- old-size 1) snake))
-         (new-tail (make-list grow-size :initial-element tail))
-         (new-snake (coerce (make-array new-size :initial-contents `(,@snake ,@new-tail)) 'list)))
-    new-snake))
+         (new-tail (make-list grow-size :initial-element tail)))
+    (append snake new-tail)))
          
     
 
@@ -113,4 +112,4 @@
         (let ((x (random size-x))
               (y (random size-y)))
           (when (eq (member (list x y) snake :test #'equal-coord) nil) ; Add if there is no conflict between snake and food position
-            (setf food (coerce (make-array (1+ (length food)) :initial-contents `(,@food ,(list x y))) 'list))))))))
+            (format t "~a" (append food `(,(list x y))))))))))