anchor.diff:                                                      "........\n"
                                                       "........\n"
                                                       "........\n"
  -                                                    "B"
  -                                 )
  -                )
  -  )
  -)
  +                                                    "B"))))
   
   (define-test :empty-board-white
     (assert-equal NIL 
  
positive.code:                                                   "........\n"
                                                    "........\n"
                                                    "........\n"
                                                    "B"
                                      )
                     )
    )
    (assert-true (not(eq pm NIL)))
    (unordered-equal (list "C5" "D6" "E3" "F4") pm)
  )
  
  (run-tests)
  
negative.code:                                                      "........\n"
                                                       "........\n"
                                                       "........\n"
                                                       "W"))))
  
  (define-test :initial-board-black
    (defvar pm (possible-moves (concatenate 'string "........\n"
  