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