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 "chess_pieces.lsp")
;; Loading file chess_pieces.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file chess_pieces.lsp
T
[2]> (init-pieces)
((PAWN) ROOK (PAWN) KNIGHT (PAWN) BISHOP (PAWN) QUEEN (PAWN) KING (PAWN) BISHOP (PAWN) KNIGHT (PAWN) ROOK)
[3]> (init-color 'black)
(((PAWN) BLACK) (ROOK BLACK) ((PAWN) BLACK) (KNIGHT BLACK) ((PAWN) BLACK) (BISHOP BLACK) ((PAWN) BLACK)
 (QUEEN BLACK) ((PAWN) BLACK) (KING BLACK) ((PAWN) BLACK) (BISHOP BLACK) ((PAWN) BLACK) (KNIGHT BLACK)
 ((PAWN) BLACK) (ROOK BLACK))
[4]> (init-color 'white)
(((PAWN) WHITE) (ROOK WHITE) ((PAWN) WHITE) (KNIGHT WHITE) ((PAWN) WHITE) (BISHOP WHITE) ((PAWN) WHITE)
 (QUEEN WHITE) ((PAWN) WHITE) (KING WHITE) ((PAWN) WHITE) (BISHOP WHITE) ((PAWN) WHITE) (KNIGHT WHITE)
 ((PAWN) WHITE) (ROOK WHITE))
[5]> (init-chess-set)
(((PAWN) BLACK) (ROOK BLACK) ((PAWN) BLACK) (KNIGHT BLACK) ((PAWN) BLACK) (BISHOP BLACK) ((PAWN) BLACK)
 (QUEEN BLACK) ((PAWN) BLACK) (KING BLACK) ((PAWN) BLACK) (BISHOP BLACK) ((PAWN) BLACK) (KNIGHT BLACK)
 ((PAWN) BLACK) (ROOK BLACK) ((PAWN) WHITE) (ROOK WHITE) ((PAWN) WHITE) (KNIGHT WHITE) ((PAWN) WHITE) (BISHOP WHITE)
 ((PAWN) WHITE) (QUEEN WHITE) ((PAWN) WHITE) (KING WHITE) ((PAWN) WHITE) (BISHOP WHITE) ((PAWN) WHITE)
 (KNIGHT WHITE) ((PAWN) WHITE) (ROOK WHITE))
[6]> (bye)
Bye.