anchor.diff:  	   (setf bb (logxor bb (ash 1 index)))))
       position-list))
   
  +(defun position-board (bb)
  +  (format t "~%" #\linefeed)
  +  (print (position-list bb))
  +  (let ((list (position-list bb)))
  +    (loop for i from 64 downto 0 do
  +	 (if (find i list)
  +	     (format t "1 ")
  +	     (format t "0 "))
  +	 (if (= (mod i 8) 0)
  +	     (format t "~%" #\linefeed)))))
   
   (print (mapcar #'position-list-to-board-list king-moves-list))
   (print (mapcar #'make-bb (mapcar #'position-list-to-board-list king-moves-list)))
  
positive.code: 	   (decf mj)))
      moves))
  
  (defun diag-down-left (i j)
    (let ((moves))
      (let ((mi (- i 1))
  	  (mj (- j 1)))
  
negative.code: 	   (incf mj)))
      moves))
  
  (defun gen-diag-down-left (i j)
    (let ((moves))
      (let ((mi (+ i 1))
  	  (mj (- j 1)))
  