$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task17--display-available-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
(R-) [R-] (R+) [R+] (r-) [r-] (r+) [r+]
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
NIL
[3]> (bye)
Bye.