anchor.diff:  	   (incf mj)))
       moves))
   
  -(defun diag-down-right (i j)
  +(defun gen-diag-up-right (i j)
     (let ((moves))
       (let ((mi (- i 1))
   	  (mj (+ j 1)))
  
positive.code: 	       (mapcar #'make-bb (mapcar #'position-list-to-board-list king-moves-list))))
  (print (integer-length 4))
  (print (logxor 4 (ash 1 (- (integer-length 4) 1))))
  (print (position-list (make-bb (list 
  				empty-rank
  				empty-rank
  
negative.code: 	   (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)))
  