Re: Tetris trademark

["Chris Moore" <dooglus@gmail.com>]

On 1/27/07, Alfred M. Szmidt <ams@gnu.org> wrote:

> 63 ams Alfred M. Szmidt <ams@gnu.org>  Sat Jan 27 14:33:01 2007
> -614138055 ams Alfred M. Szmidt <ams@gnu.org>  Sat Jan 27 14:33:01 2007

I just managed to get a NUL character in my highscore table:

0039^@	Sat Jan 27 23:20:41 2007	 <chris@TRPASLIK>
00388	Sat Jan 27 23:20:41 2007	 <chris@TRPASLIK>
00170	Sat Jan 27 22:33:48 2007	 <chris@TRPASLIK>
00165	Sat Jan 27 22:33:43 2007	 <chris@TRPASLIK>
00096	Sat Jan 27 22:31:38 2007	 <chris@TRPASLIK>
00090	Sat Jan 27 22:30:35 2007	 <chris@TRPASLIK>

and an error message:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 0)
  (put-text-property (1- (point)) (point) (quote face) (aref gamegrid-face-
  (if (eq gamegrid-display-mode (quote glyph)) (add-text-properties (1- ...
  gamegrid-set-face(0)
  (let ((buffer-read-only nil)) (goto-char (gamegrid-cell-offset x y)) (del
  (save-excursion (let (...) (goto-char ...) (delete-char 1) (insert-char c
  gamegrid-set-cell(3 1 0)
  (if (/= c tetris-blank) (gamegrid-set-cell px py tetris-blank))
  (let ((c ...) (px ...) (py ...)) (if (/= c tetris-blank) (gamegrid-set-ce
  (while (<= x --cl-var--) (let (... ... ...) (if ... ...)) (setq x (+ x 1)
  (let* ((x 0) (--cl-var-- ...)) (while (<= x --cl-var--) (let ... ...) (se
  (catch (quote --cl-block-nil--) (let* (... ...) (while ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ... ... nil)))
  (block nil (let* (... ...) (while ... ... ...) nil))
  (loop for x from 0 to (1- (tetris-shape-width)) do (let (... ... ...) (if
  (while (<= y --cl-var--) (loop for x from 0 to (1- ...) do (let ... ...))
  (let* ((y 0) (--cl-var-- ...)) (while (<= y --cl-var--) (loop for x from
  (catch (quote --cl-block-nil--) (let* (... ...) (while ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ... ... nil)))
  (block nil (let* (... ...) (while ... ... ...) nil))
  (loop for y from 0 to (1- (tetris-shape-height)) do (loop for x from 0 to
  tetris-erase-shape()
  (let ((hit nil)) (tetris-erase-shape) (while (not hit) (setq tetris-pos-y
  tetris-move-bottom()
  call-interactively(tetris-move-bottom)

This happened after 2 scores had already been added into the highscore
table for that game.  I'm wondering if the timer isn't being stopped
properly and/or quickly enough.  The score is being written using a
(format "%05d ...") call, so that NUL must have been written over the
score at a later point.

The value of buffer-file-name in the above backtrace is "c:/Documents
and Settings/chris/Local Settings/Temp/tetris-scores" so it looks like
the code is trying to manupulate the high score table as if it was a
tetris board.

I didn't mention it before, so:

In GNU Emacs 22.0.92.1 (i386-mingw-nt5.1.2600)
 of 2007-01-21 on LENNART-69DE564
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/g/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: CSY
  locale-coding-system: cp1250
  default-enable-multibyte-characters: t