anchor.diff:                           (0 0 0))))
         (square= (normalize-square square-1) square-2)) t)
   
  +;;; actual magic squares tests (not just matrix junk)
  +
   (defparameter *perfect-square* #2a ((8 1 6)
                                       (3 5 7)
                                       (4 9 2)))
  
positive.code:                          (9 6 3))))
        (square= (rotate-square square-1) square-2)) t)
  
  (rt:deftest mirror-square-horizontally
      (let ((square-1 #2a ((1 2 3)
                           (4 5 6)
                           (7 8 9)))
            (square-2 #2a ((3 2 1)
                           (6 5 4)
                           (9 8 7))))
        (square= (mirror-square square-1) square-2)) t)
  
  (rt:deftest normalize-square-1
      (let ((square-1 #2a ((1 4 7)
  
negative.code:        (make-array (list (array-dimension square 0)
                           (array-dimension square 1))
                     :initial-contents (rows square)))
        :axis :vertical))))
  
  ;;; normalize-square is sort of a mess -- i think it's correct for 3x3 though
  (defun normalize-square (square)
  