anchor.diff:  	   (setf bb (logxor bb (ash 1 index)))))
       position-list))
   
  +
   (print (mapcar #'position-list-to-board-list king-moves-list))
   (print (mapcar #'make-bb (mapcar #'position-list-to-board-list king-moves-list)))
   (print (mapcar #'position-list
  
positive.code: 		  (,(- i 1) ,j)))
        (on-board `((,(- i 1) ,j)))))
  
  (defconstant knight-moves-list
    (gen-move-list #'gen-knight-moves))   
  
  
negative.code: 	       (,i ,(+ j 1))
  	       (,i ,(- j 1)))))
  
  
  (defun gen-knight-moves (i j)
    (on-board `((,(+ i 2) ,(+ j 1))
  