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:   (let ((moves))
      (loop for i from 0 to 7 do
  	 (loop for j from 0 to 7 do
  	      (let ((move-set (funcall func i j)))
  		(push move-set moves))))
      moves))
    
  
  