Name: Anonymous 2010-10-01 0:33
My lisp code doesn't seem to work:
(defun apply-screen-next (game)
(with-slots (game-screen game-screen-next) game
(when game-screen (unsubscribe game game-screen))
(setf game-screen game-screen-next)
(when game-screen (goto game-screen))))