$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task43--same-style-p-demo)
For [B-] and [b-] the same style result = T
For [R+] and [r+] the same style result = T
For [B-] and [r+] the same style result = NIL
For [r+] and [B-] the same style result = NIL
NIL
[3]> (bye)
Bye.