$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task23--board-col-demo)
Animal playground...
d1=PIG d2=NIL d3=RAT d4=NIL
c1=NIL c2=EMU c3=FOX c4=OWL
b1=BAT b2=APE b3=AUK b4=YAK
a1=CAT a2=DOG a3=COW a4=NIL
Col 1 = (PIG NIL BAT CAT)
Col 2 = (NIL EMU APE DOG)
Col 3 = (RAT FOX AUK COW)
Col 4 = (NIL OWL YAK NIL)
NIL
[3]> (bye)
Bye.