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