diff options
Diffstat (limited to 'steam.lisp')
-rw-r--r-- | steam.lisp | 10 |
1 files changed, 3 insertions, 7 deletions
@@ -2,12 +2,6 @@ (defvar steam-host "api.steampowered.com") -(defun set-steam-key (key) - (setf (steam-key *config*) key)) - -(defun set-steam-id (id) - (setf (steam-user-id *config*) id)) - ;; JSON ;; * The API returns an object containing the named object with the result data. ;; * Arrays are represented as an array with the name of the type of the objects @@ -122,13 +116,15 @@ game rec))))) (defun load-steam-games () - "Fetch and wrap STEAM-GAMES as persistent objects. + "Fetch and wrap STEAM-GAMEs as persistent objects. WARNING! Not idempotent!" (db:with-transaction () (loop for data in (fetch-steam-games) do (make-steam-game data)))) (defun load-achievement-data (game) + "Fetch and wrap STEAM-ACHIEVEMENTs as persistent objects. +WARNING! Not idempotent!" (loop for schema in (fetch-steam-game-schema game) for achievements in (fetch-steam-achievements game) do (make-steam-achievement game schema achievements))) |