$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task55--uniform-shape-p-demo)
([B-] [B+] [b+] (R+)) is uniform in shape? NIL
([B-] [b-] [R-] [r-]) is uniform in shape? T
((B-) [R+] [r+] (R-)) is uniform in shape? NIL
NIL
[3]> (bye)
Bye.