defconst in life.el

[Luc Teirlinck <teirllm@dms.auburn.edu>]

I believe all uses of defconst in life.el are wrong.  Most are changed
in functions in life.el itself and produce compiler warnings.  Unless
there are objections, I will install the following patch.  My previous
message to the author could not be delivered, which probably means
that the file is no longer maintained.

===File ~/life.el-diff======================================
*** life.el	02 Sep 2003 07:51:42 -0500	1.20
--- life.el	14 Nov 2004 10:24:04 -0600	
***************
*** 1,6 ****
  ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
  
! ;; Copyright (C) 1988, 2001 Free Software Foundation, Inc.
  
  ;; Author: Kyle Jones <kyleuunet.uu.net>
  ;; Keywords: games
--- 1,6 ----
  ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
  
! ;; Copyright (C) 1988, 2001, 2004 Free Software Foundation, Inc.
  
  ;; Author: Kyle Jones <kyleuunet.uu.net>
  ;; Keywords: games
***************
*** 30,36 ****
  
  ;;; Code:
  
! (defconst life-patterns
    [("@@@" " @@" "@@@")
     ("@@@ @@@" "@@  @@ " "@@@ @@@")
     ("@@@ @@@" "@@   @@" "@@@ @@@")
--- 30,36 ----
  
  ;;; Code:
  
! (defvar life-patterns
    [("@@@" " @@" "@@@")
     ("@@@ @@@" "@@  @@ " "@@@ @@@")
     ("@@@ @@@" "@@   @@" "@@@ @@@")
***************
*** 80,95 ****
  
  ;; list of numbers that tell how many characters to move to get to
  ;; each of a cell's eight neighbors.
! (defconst life-neighbor-deltas nil)
  
  ;; window display always starts here.  Easier to deal with than
  ;; (scroll-up) and (scroll-down) when trying to center the display.
! (defconst life-window-start nil)
  
  ;; For mode line
! (defconst life-current-generation nil)
  ;; Sadly, mode-line-format won't display numbers.
! (defconst life-generation-string nil)
  
  (defvar life-initialized nil
    "Non-nil if `life' has been run at least once.")
--- 80,95 ----
  
  ;; list of numbers that tell how many characters to move to get to
  ;; each of a cell's eight neighbors.
! (defvar life-neighbor-deltas nil)
  
  ;; window display always starts here.  Easier to deal with than
  ;; (scroll-up) and (scroll-down) when trying to center the display.
! (defvar life-window-start nil)
  
  ;; For mode line
! (defvar life-current-generation nil)
  ;; Sadly, mode-line-format won't display numbers.
! (defvar life-generation-string nil)
  
  (defvar life-initialized nil
    "Non-nil if `life' has been run at least once.")
============================================================