Разработать программу для игры «Жизнь»

(defun life (prev &optional (nn 10))
   (let ((w (gensym 'w)) (curr nil))
      ;; Создание окна 
      (grwCreate w  ;; имя окна 
               300  ;; Ширина  
               300  ;; Высота  
           "Жизнь"  ;; Заголовок 
           _WHITE   ;; Цвет фона           
      )
      (grwScale w   ;; идентификатор окна
             -100   ;; Xmin
              100   ;; Xmax
             -100   ;; Ymin
              100   ;; Ymax
      )
      (grwShow w 10 10)
      (draw w prev _RED)       
      (dotimes (iii nn curr)
         (grwSavePic w 0 (strCat "life-" (fix2str iii)))
         (setq curr (act prev))
         (draw w prev _WHITE)
         (draw w curr _RED)
         (setq prev curr))))
         
(defun act (config)
  (let ((new nil))
        (iter (for c in (make-bound config))  
          (let* ((ix (car c))
                 (iy (cadr c)) 
                 (k (neibor ix iy config))
                 (ok (car k))
                 (ek (cadr k)))
                 (if (member (list ix iy) config)
                 ;; в позиции клетка
                     (when (or (= ok 2) (= ok 3)) (collecting (list ix iy) into new)) ;; клетка выжила
                 ;; позиция пуста
                     (when (= ok 3) (collecting (list ix iy) into new))))) new )) ;; клетка появилась
                        
(defun make-bound (config)
  (let ((new nil) (xn 0) (yn 0))
     (iter (for c in config)
       (iter (for ix in '(-10 0 10))
          (iter (for iy in '(-10 0 10))
                (setq xn (+ ix (car c)) yn (+ iy (cadr c)))
                (when (and (<= xn 90) (>= xn -90) (<= yn 90) (>= yn -90)) (collecting (list xn yn) into new)))))
     (setof new)))
  
(defun draw (w config color)
  (mapcar #'(lambda (c) 
              (let ((xx (car c))
                    (yy (cadr c)))
                    (grwFRect w   ;; идентификатор окна
                             xx   ;; X1
                             yy   ;; Y1
                      (+ xx 10)   ;; X2
                      (+ yy 10)   ;; Y2
                          color   ;; цвет
                       ))) config))
                       
(defun neibor (x y config)
   (let ((lx '(-10 0 10))
         (ly '(-10 0 10))
         (o  0) ;; число занятых
         (e  0) ;; число свободных
         (xx 0)
         (yy 0))
        (iter (for dx in lx) 
           (iter (for dy in ly)
                 (setq xx (+ x dx) yy (+ y dy))
                 (when (and (or (/= dx 0) (/= dy 0))
                            (and (<= xx 90) (>= xx -90))
                            (and (<= yy 90) (>= yy -90)))
                       (if (member (list xx yy) config) 
                           (setq o (+ 1 o))     
                           (setq e (+ 1 e))))))
        (list o e)))
 
;; запуск                       
                       
(life '((0 0) (10 0) (20 0) (0 10) (0 -10)))