atoms.lisp: Reorder the notifications in `play-cell'.

Really :processing-move should always come before :start-turn.

diff --git a/atoms.lisp b/atoms.lisp
index 5dc0def11eb6624367af4c06de80cf1586334bca..fa65755b3b179223be8f2035f6bbd7b7c4ee72f0 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -362,8 +362,8 @@ (defmethod play-cell ((game atom-game) player i j)
          (unless (cell-played cell player-index)
            (return-from escape))
          (setf (player-state player) :playing)
-         (perform-explosions game (list cell)))
-       (changed game :processing-move)))))
+         (changed game :processing-move)
+         (perform-explosions game (list cell)))))))
 
 (defmethod restart-game ((game atom-game) &key grid players)
   (game-cancel-timeout game)