anchor.diff:      :documentation
       "A list of (cons move solitaire-state) already reached form this state."))
     (:documentation
  -   "A visible solitaire game state, associated with the moves yet to play.")
  -  );;solitaire-state
  +   "A visible solitaire game state, associated with the moves yet to play."))
   
   
   ;; states x valid-moves  --> states
   ;;( state , move ) --------> state
  -  
  +
   
   (defclass solitaire-player ()
     ((game
  
positive.code:     :accessor current-state
      :type solitaire-state
      :documentation "The current state of the game."))
    (:documentation "A solitaire player."));;solitaire-player
  
  
  
  
negative.code:        (d (reverse (dealt self)) (cdr d)))
        ((>= i 3))
      (if (null d)
          (format out "         ")
          (format out "~8A " (card-label (car d)))))
    ;; foundations:
    (do ((i 0 (1+ i))
         (f))
        ((>= i 4))
      (setf f (car (aref (foundations self) i)))
      (if (null f)
          (format out "         ")
          (format out "~8A " (card-label f))))
    ;; columns:
    (format out "|~%| ")
    (format out "                           ")
  