diff options
| -rw-r--r-- | server/game.lisp | 7 |
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)))))))))) |