$ clisp

<...snip...>

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