game related functions

game.lisp

(defun game-from-name (name)
  (clsql:locally-enable-sql-reader-syntax)
  (car (clsql:select 'game
             :where [= [slot-value 'game 'name] name])))

(defun games ()
  (sort (clsql:select 'game) #'> :key #'(lambda (g) (apply #'game-votes g))))

(defun add-game (name)
  (unless (game-stored? name)
    (let ((g (make-instance 'game :name name)))
      (clsql:update-record-from-slots g '(name votes)))))

(defmethod vote-for (user-selected-game)
  (let ((g (car user-selected-game)))
    (incf (game-votes g))
    (clsql:update-record-from-slots g '(votes))))