anchor.diff:                         (setup-pieces ADVISOR side "9" ADVISOR_COLS)
                          (setup-pieces GENERAL side "9" GENERAL_COLS))))
   
  -; Player struct
  -(defstruct player
  -  pieces
  -  name)
   
   (defun get-alive-pieces(board player)
     (let ((pieces (player-pieces player)))
  
positive.code: ;;;
  ;;; This file is licensed under the MIT license; 
  ;;; see the LICENSE file for details
  
  ; My own concatenate function
  (defun s+ (&rest args)
  
negative.code:                     (row-to-string (cdr row))))
      ))
  
  
  ; a-i, 0-9
  (defun is-valid-pos(pos)
  