anchor.diff:    (reverse (mapcar (lambda (l) (reverse (mapcar #'reverse l))) 
   		   upper-left-diagonals-list)))
   
  +
   (make-precomputed-table lower-left-diagonals
  -			lower-left-diagonals-lsit)
  +			lower-left-diagonals-list)
   
  -(make-precomputed-table clear-rank clear-rank-list)+
  
positive.code: 	(push this-list rank-list)))
      rank-list))
  
  (defun 1-at (n)
    (let ((line clear-rank))
      (loop
         for cell on line
         for i from 0
  
negative.code: 
  (defun padlist (l)
    (if (< (length l) 8)
        (padlist (cons empty-rank l)) l))
  
  (defconstant upper-left-diagonals-list
    (loop
       for i from 0 below 8
         collect (reverse (padlist 
  			 (reverse (nthcdr i diagonal-ones-list))))))
  
  (princ upper-left-diagonals-list)
  
  (make-precomputed-table upper-left-diagonals 
  			upper-left-diagonals-list)
  