(setf *window* (apply #'make-instance 'atom-game-window initargs))
(gtk:widget-show-all *window*))
-(start-atom-game :width 7 :players (list "Mark" "Vicky"))
+#+debug
+(start-atom-game :width 7
+ :players '("Alice" "Bob"))
;;;----- That's all, folks --------------------------------------------------