More idiomatic naming

Author: svercl

snake.lisp

@@ -61,7 +61,7 @@
   (with-slots (segments direction) snake
     (let* ((position (snake-position snake))
            ;; The position of the next head.
-           (new-head (gamekit:add position (direction-vec direction)))
+           (new-head (gamekit:add position (direction-to-vec direction)))
            ;; If we ate the food we do not chop off the end of the SEGMENTS.
            (which-segments (if ate-food-p segments (butlast segments)))
            (new-segments (push new-head which-segments)))

util.lisp

@@ -24,7 +24,7 @@
                      :fill-paint fill-paint
                      :stroke-paint stroke-paint))
 
-(defun direction-vec (direction)
+(defun direction-to-vec (direction)
   (case direction
     (:up (gamekit:vec2 0 1))
     (:down (gamekit:vec2 0 -1))