anchor.diff:  (defvar *cells-count* nil)
   (defvar *cell-size* nil)
   (defvar *matrix* nil)
  +(defvar *old-matrix* nil)
   (defvar *dead-color* nil)
   (defvar *alive-color* nil)
   
  
positive.code: 	  do (push (make-array size) matrix))
      matrix))
  
  (defun matrix-iterate (f size)
    (let ((bounds (sub1 size)))
      (loop for x from 0 to bounds
  	  do (loop for y from 0 to bounds
  		   do (funcall f x y)))))
  
  (defun matrix-iterate-near (f x y)
    (let ((x0 (sub1 x))
  	(x2 (add1 x))
  	(y0 (sub1 y))
  
negative.code:     (funcall f x y2))
    nil)
  
  (defun matrix-get (m x y)
    (elt (elt m
  	    (matrix-translate x))
         (matrix-translate y)))
  
  (defun matrix-set (m x y v)
    (setf (elt (elt m x) y) v))
  
  (defun matrix-translate (x)
    (if (= x *cells-count*)
  