anchor.diff:  
   (defun padlist (l)
     (if (< (length l) 8)
  -      (padlist-append (cons l clear-rank-list))))
  +      (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)
  
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: (defconstant full-rank (list 1 1 1 1 1 1 1 1))
  (defconstant empty-rank (list 0 0 0 0 0 0 0 0))
  
  
  (defmacro make-precomputed-table (name list)
    `(declaim (type (simple-array (unsigned-byte 64) (8)) ,name))
  