C:\Users\xXxCKxXx\Desktop>clisp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "cards.lsp")
;; Loading file cards.lsp ...
;; Loaded file cards.lsp
T
[2]> (pc 'id)
NIL
[3]> id
(QUEEN DIAMOND)
[4]> (rank id)
QUEEN
[5]> (suit id)
(DIAMOND)
[6]> ('red-p id)

*** - EVAL: 'RED-P is not a function name; try using a symbol instead
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [7]> :a
[8]> (red-p id)
T
[9]> (black-p id)
NIL
[10]> (hcp id)
2
[11]> (high-card-p id)
T
[12]> (pc 'id)
NIL
[13]> id
(3 CLUB)
[14]> (pc 'id)
NIL
[15]> id
(QUEEN DIAMOND)
[16]> (pc 'id)
NIL
[17]> id
(2 DIAMOND)
[18]> (red-p id)
T
[19]> (black-p id)
NIL
[20]> (hcp id)
0
[21]> (high-card-p id)
NIL
[22]> (bye)
Bye.