$ clisp
 
<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task87--wind-up-game-demo)
Name of player 1? Jake
Name of player 2? Ian
Who will move first, JAKE or IAN? Jake
Player 1: JAKE
Player 2: IAN
Game state:
D    **** **** **** ****
C    **** **** **** ****
B    **** **** **** ****
A    **** **** **** ****
     1    2    3    4
Current player = JAKE
Congratulations, JAKE!
NIL
[3]> (bye)
Bye.