$ clisp <...snip...> [1]> (load "quarto.l") ;; Loading file quarto.l ... ;; Loading file lp.l ... ;; Loaded file lp.l ;; Loaded file quarto.l T [2]> (task66--game-over-p-demo) Name of player 1? Foo Name of player 2? Bar Who will move first, FOO or BAR? Bar Player 1: FOO Player 2: BAR Game state: D **** **** **** **** C **** **** **** **** B [R+] (r-) [r+] (R-) A **** **** **** **** 1 2 3 4 Current player = BAR Game over? T Player 1: FOO Player 2: BAR Game state: D **** **** (r+) **** C **** **** (b-) **** B **** **** [r+] **** A **** **** [b-] **** 1 2 3 4 Current player = BAR Game over? T Player 1: FOO Player 2: BAR Game state: D **** **** **** (R-) C **** **** (B-) **** B **** [R-] **** **** A [B+] **** **** **** 1 2 3 4 Current player = BAR Game over? T Player 1: FOO Player 2: BAR Game state: D [r-] **** **** **** C **** [r+] **** **** B **** **** [R+] **** A **** **** **** [b-] 1 2 3 4 Current player = BAR Game over? T Player 1: FOO Player 2: BAR Game state: D **** **** (r-) (r-) C **** **** (B+) (B-) B [b+] [R-] **** **** A [B-] [B+] **** **** 1 2 3 4 Current player = BAR Game over? NIL NIL [3]> (bye) Bye.