$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;; Loaded file quarto.l
T
[2]> (task2--piece-demo)
size=SMALL color=BLUE style=HOLLOW shape=CIRCLE
size=BIG color=BLUE style=SOLID shape=SQUARE
NIL
[3]> (bye)
Bye.