From f71b8b9b1a40d06b78c9af7a3fc80e6a644b4208 Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 36/39] convert a few structure fields to fixnums

---
 src/lisp/structs.lisp |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp
index 2f4ccbc..399ac1f 100755
--- a/src/lisp/structs.lisp
+++ b/src/lisp/structs.lisp
@@ -20,9 +20,9 @@
 
 (defstruct (board)
   ;; represents a boggle board as a 2d list of letters.
-  (letters nil :type (vector (vector letter *) *)) 
-  (rows nil :type integer) 
-  (cols nil :type integer) 
+  (letters nil :type simple-vector) 
+  (rows nil :type fixnum) 
+  (cols nil :type fixnum) 
   (config nil :type list))
 
 (deftype trie-children-vector () '(simple-vector 30))
@@ -30,7 +30,7 @@
 (defstruct (trie)
   ;; data structure used to load 
   ;; and search the dictionary.
-  (level 0 :type integer) 
+  (level 0 :type fixnum) 
   (depth 0 :type integer)
   (count 0 :type integer)
   (word-count 0 :type number)
-- 
1.6.2