$ clisp <...snip...> [1]> (load "quarto.l") ;; Loading file quarto.l ... ;; Loading file lp.l ... ;; Loaded file lp.l ;; Loaded file quarto.l T [2]> (task41--same-color-p-demo) For [B-] and [b-] the same color result = T For [R-] and [r-] the same color result = T For [B-] and [r-] the same color result = NIL For [r-] and [B-] the same color result = NIL NIL [3]> (bye) Bye.